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PART 1 PAGE 1 


C PART I PNG 183 

D I MENS I ON R( 1 00) , A (44, 44) , X (44) ,()( 1 00) 

COMMON A,X,R,0 

READ 1, S1,S2,S3,S4,S5,S6 

READ 1, S7.S8.S9 

READ 1, AKSH.AKGAS.AKR.AKRP.AKL 

READ 1, AKSTL.AKI NS.AKSTAR, AKCOP ,AKR()P 

READ 1, F AREA.HEND.HGAP , HOUT ,HS ! NK.HSH 

READ 1, U,V,W,Al.,ALE,B,KS 

READ 1, D.T I NS.TP.RSHAFT.RBRG 

C1=6./(3. 14159* AKSH) 

C2=S2**2— S 1 **2 
R(1)=(C1/C2)*B+RSHAFT 

C3=36./3. 14159 

R(2)=C3' V TP/ ( AKGAS*B*S2) / 1 2. 0 
R(3)=R(2) 

R(2)=R(2) + (C1/B)*L0GF(S2/S1 ) 

R(3)=R(3)+RBRG 

R(4)=(2.*C1/C2)*(B/2.+D/3») 

R(5)=(3.0*C3)/(S2*0*HSH) 

R(5)=R(5)+(1.5*C1*L0GF(S2/S1))/D 

R(6)=D*C1/C2 

R(7)=2.*R(5) 

R(8)=R(6)/3. 

R(8)=R(8)+(2.0*AL) /(3 . 14159*AKRP*C2) 
C4=C1*AKSH/AKR 
R(9)=(3.*C4/AL)*L0GF(S2/S1 ) 

R(1 0)«(C3/(S3*HGAP*AL) )*6. 

R( 1 0)*=R( 1 0)+(3.*C4/AL)*L0GF (S3/S2) 
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PART 1 PAGE 2 


C5=S3**2-S2**2 
RRRRR=AL*(C4/C5)*AKR/AKROP 
R( 1 1 )=RRRRR 

R ( 1 2 ) «RRRRR*C5/C2*2 . /3 . * ( AKROP / AKRP ) 
R(13)=R(9) 

R(14)=R(12) 

R( 1 5)=R( 1 1 ) 

R(16)=R(13) 

R(17)=R(8) 

R( 18)=R(7) 

R( 1 9)=Fi (6) 

R(20)=R(5) 

R(21 )*=R(4) 

R(22)=R(2) 

R(23)=R(1) 

R(24)»R(3) 

R(26)=R(10) 

R(25)**R( 1 0) 

R ( 2 7 ) =6 . *C3 / ( S4*AL*HGAP ) 

C6=C4*AKR/AKL 

R(27)«R(27)+(3.*C6/AL)*L0GF((S8+S4)/(2.*S4)) 

R(28)=R(27) 

R(29)=R(27) 

R(30)=18.*(S9-S4) 

R (3 0) =R (3 0) / ( AKL*AL' A W) 

AKS=KS 

R(30)«R(30)/AKS 

R(31)=R(30) 

R(32)-R(30) 
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PART 1 PAGE 3 


C7=(1B./AKL)*(S5-SB) 

R(33)=C7/(AL*W*AKS) 

R(35)=R(33) 

R(37)=R(33) 

C 8 = 1 8 «, / ( AKS*IJ*AL ) 

R (3 4) =V / AKST AR+2 .*T I NS/AKINS 
R(34)=CB*R(34) 

CC=2.*S8/(S8+S4) 

CCC=18./AKL*AL*3. 14159 
R(34)=R(34)+CCC*L0GF (CC) 

R(36)=R(34) 

R(38)=R(34) 

CC=(S5+S9)/(2.*S9) 

R(43)*=V/AKST AR+2.*T I NS/AKI NS 
R(43)=C8*R(43) 

R ( 43 ) =R ( 43 ) +CCC*LOGF ( CC ) 

r(44)=R(43) 

R(45)=R(43) 

R (40) *4. *AL/ ( AKCOP*U*V*AKS*F AREA) 

R ( 4 1 )=R(40) 

C 9= ( S 7**2-S6 ** 2 ) *3 . 1 4 1 5 9*F AR E A* AKC OP 
R(39)=3.*ALE/C9+0.5*R(40) 

R(42)=R(39) 

R(46)=l44./(3. 14159*S6*ALE*HEND) 
R(47)=R(46) 

R(55)=R(46) 

R(56)=R(46) 

R(53)=(S6/S7)*R(46) 

R(54)=R(53) 
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PART 1 PAGE 4 


R(6l )=k(53) 

R(62)=k(53) 

R ( 5 0) =6 . * AL E /C 9 
R(76)=R(50) 

C10=1.+0.5*S7/S6 
C 11 = 1 2 . / (3 . 1 4 1 5 9* AKST AR* AL E ) 

R (48)=C1 1*L0GF (CIO) 

R(49)-R(48) 

R(57)=R(48) 

R(58)=r(48) 

C12=2.*S7/(S7+S6) 

R(51 )=C1 1*L0GF(C12) 

R(52)=R(51 ) 

R(59)=R(51 ) 

R(6o)=R(51 ) 

C13=(2.*S5)/(S5+S9) 

C14==18./(3.14159*AKL*AL) 

R(63)=C14*L0GF(C13) 

r(64)=r(63) 

R(65)=R(63) 

R(66)=2l6./(3. 141 59*S5*AL*H0UT ) 
R(67)=R(66) 

R(68)»R(66) 

R(69)=R(66)*( 1 ,+HOUT/HS I NK) 
R(70)=R(69) 

R(71)=R(69) 

R ( 72 ) -4 . *AL / ( AKST L*W*V*AKS ) 
R(73)=R(72) 

R ( 74 ) =4 . 0*AL / ( AKST L* AKS * ( S 5-S 9) ) 
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R(74)=R(74)/(U+W) 

R(75)=R(74) 

C15=18./(V*AL*AKS) 

R(77)=U/AKSTAR+T I NS/AKI NS+0.5*W/AKSTL 
R(77)=C1 5*R(77) 

R(78)=R(77) 

R(79)=R(77) 

IF (SENSE SWITCH 1) 10,20 
10 PUNCH 2, (R( 0,1=1,79) 

20 STOP 

1 FORMAT (6E1 0.3, 1 5) 

2 FORMAT (6E1 0.3) 

END 
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PART 2A PAGE 1 


PART 2 A CALCULATION UP TO A(17,18) 
DIMENSION R(100),A(44,44),B(44,1),Q(100) 
COMMON A,B,R,0 
COMMON NR,NQ,BR,BL,BC,TSTAR 
COMMON Tl N,T52,T53,T54,T55 
COMMON T64,T65,T66,W1,W2,C 
COMMON BBR,BBL,BBC 
READ 100, NR, NQ,BR,BL,BC,TSTAR 
READ 101, (0( I ) , I =1 , NQ) 

READ 101, TIN,T52,T53,T54,T55 
READ 101, T64,T65,T66 
READ 101, W1,W2,C 
IF (SENSE SWITCH 1 ) 40,45 
40 READ 101, (R( I ) , I =1 , NR) 

45 N=44 

DO 2 1=1, N 

1 DO 2 J=1,N 

2 A(l,J)=0.0 
DO 3 J**1 , N 

3 B(J,1)=0.0 

C CALCULATION OF A(I,J), COEFFICIENTS WHICH 

C ARE NON ZERO 

BBR=1 ,-BR*TST AR 
BBL=1.-BL*TSTAR 
BBC=1 BC*TSTAR 
A(1,1)-1./R(2)+1./R(3) 

A(1 ,2)=— 1 ,/R(2) 

B(1 , 1 )“0( 1 )+T53 /R(3) 

A(2, 1 )=A( 1,2) 
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A(2,2)=1./R(1)+1./R(2)+1./R(4) 

A(2,3)=-1./R(4) 

B(2,1)=T52/R(1) 

A(3.2)-A(2 t 3) 

A(3,3)=1.0/R(4)+1.0/R(5)+1.0/R(6) 

A(3,4)=-1./R(6) 

A(3,43)=-1.0/R(5) 

B(3,1)=Q(4) 

A(4,3)=A(3,4) 

A(4,4)=1./R(6)+1./R(7)+1./R(8) 

A(4,5)=-1./R(8) 

A(4,44)=-1 . 0/R(7) 

B (4, 1 )=0(6) 

A(5,4)=A(4,5) 

A(5,5)»1./R(8)+1./R(9)+1./R(12) 

A(5,6)— 1./R(9) 

A(5 t 7)—1./R(12) 

B(5, 1 )= Q(7) 

A(6,5)* s A(5,6) 

A(6,6)=1.0/R(9)+1./R(10)+1./R(11)-BR*Q(8) 
IF (A(6,6)) 99,99,6 
6 a(6 # 0)=-1 ,/R(1 1 ) 

A(6,15)=-1./R(10) 

B (6, 1 )=BBR*0(8) 

A(7,5)— 1./R(12) 

A(7,7)=1./R(12)+1.0/R(13)+1./R(14) 
A(7,8)=-1 . /R( 13) 

A(7,10)=— 1./R(14) 

B(7,1) « Q(9) 


CA-7 



A(8,6)=-1 „ /R( 1 1 ) 
A(8,7)=A(7,8) 


PART 2A PAGE 


A(8,8)=1 . /R( 1 1 )+1 ,/R(13)+1 ./R(15)+1 ,/R(26)-BR*Q(1 0) 
IF (A(8,8)) 98,98,8 
8 A(8, 9)*=~1 . /R( 1 5) 

A(8,16)=-1./R(26) 


B (8, 1 )=BBR*0( 1 0) 

A ( 9 , 8 ) =— 1 . /R( 1 5) 

A(9,9) = 1./R(?-5)+1./R(15)+1./R( 16)-BR*Q( 1 1 ) 
IF ( A ( 9, 9) ) 97,97,9 
9 A(9, 1 0) = — 1 ,/R( 16) 

A(9.17) — 1./R(25) 

B(9,1)=BBR*Q(11) 

A(10,7) — 1./R(14) . 

A( 1 0, 9)=A(9, 1 0) 

A(10, 10)«1./R(14) + 1./R(16)+1./R(17) 
A(10,11) — 1./R(17) 

B ( 1 0, 1 ) = Q( 1 2) 

A(11,10)-A( 10,11) 

A(11,11)-1./R(17)+1./R(18)+1.0/R(19) 

A( 1 1 , 1 2)=— 1 . /R( 1 9) 

A(11,41)— 1./R(18) 

B(11,1)=Q(14) 

A(12,11) — 1./R(19) 

A(12,12)=1.0/R(19)+1./R(20)+1,/R(21) 
A(12,13) — 1./R(21) 

A( 12,42 )**-1 ,/R( 20) 

B( 1 2, 1 )=Q( 16) 

A(13,12)=A(12,13) 
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A(13,13)-1./R(21)+1./R(22)+1./R(23) 

A( 13 s 1if)=-1 . /R(22) 

B(13,1)»T54/R(23) 

A( 1 4, 13)=A(13,14) 

A(14,14)-1./R(22)+1./R(24) 

B(14, 1 )*»Q( 18)+T55/R(24) 

A(15,6)=A(6,15) 

A(15,15)=W1*C+1./R(27)+1./R(10) 

A(15,20)=-1./R(27) 

A ( 1 5 , 44 ) =-W 1 *C 
B(15,1)=Q(19) 

A( 16,8)=A(8, 16) 

A( 1 6 , 1 5)=A( 1 5,44) 

A(16,16)=W1*C+1./R(28)+1./R(26) 

A(16,19)=-1./R(28) 

B ( 1 6 , 1 ) *=0 ( 2 0) 

A(17,9)=A(9,17) 

A( 1 7, 16)=A( 16,15) 

A(17,17)=W1*C+1.0/R(29)+1./R(25) 

A(17 t l8)— 1./R(29) 

B(17,D=Q(21) 

STOP 

99 PRINT 1000 
LERR=6 

PUNCH 1001, A(6,6),R(9),R(10),R(11),BR,Q(8) 

GO TO 998 
98 PRINT 1000 
LERR=8 

PUNCH 1001, A(8,8),R(11),R(13),R(15),R(26),BR,Q(10) 
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GO TO 998 
97 PRINT 1000 


PART 2A PAGE 5 


LERR=9 

PUNCH 1001, A(9,9),R(25),R(15),R(16),BR,0(11) 
GO TO 998 

998 PUNCH 1002, LERR 
STOP 


100 F0RMAT(2!5,4E10.3) 

101 FORMAT (6E10.3) 

1000 FORMAT ( 1 9H UNSTABLE PROBLEM) 

1001 FORMAT ( OF. 1 0.3) 

1002 FORMAT ( 1 OHO INDEX =13) 

END 
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C PART 2B CALCULATION UP TO A(28,43) PART 2B PAGE 1 

DIMENSION R(100),A(44,44),B(44,1),Q(100) 

COMMON A,B,R,0 
COMMON NR,NQ,BR,BL,BC,TSTAR 
COMMON Tl N,T52 f T53,T54,T55 
COMMON T64,T65,T66,W1,W2,C 
COMMON BBR,BBL,BBC 
A( 18, 1 7)=A( 17,18) 

A(18,18)=1./R(29)+1./R(30)+1./R(34) 

A( 18,23 )=-1 ./R (30) 

A(18,24)=-1./R(34) 

B ( 1 8 , 1 ) =0 ( 2 2 ) 

A( 1 9, 16)=A( 18,19) 

A(19,19)=1./R(28)+1./R(31)+1./R(36) 

A(19, 22)=— 1./R(31) 

A(19,25)=-1./R(36) 

B(19, 1 )=Q(23) 

A(20,15)=-1./R(27) 

A(20,20)=1./R(27)+1./R(32)+1./R(38) 

A(20,21)=-1./R(32) 

A(20,26)=-1 ,/R(38) 

B(20,1)=Q(24) 

A ( 2 1 ,20)=A(20,21 ) 

A(21,21)=1./R(32)+1./R(37)+1./R(73)-BL*Q(25)+1./R(79) 

IF ( A(21 ,21 ) ) 96,96,21 
21 A(21,22)=-1./R(73) 

A( 2 1 ,26) = -1./R(79) 

A(21,33)=-1./R(37) 

B(21,1)=BBL*Q(25) 
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A(22, 1 9)=A( 1 9, 22) PART 2B PAGE 2 

A(22,21)=A(21,22) 

A(22,22) = 1 ./Ft(31)+1./R(35) + 1./R(72)+1./R(73)_BL*Q(26) + 1 0 /R(78) 

IF (A(22,22)) 95,95,22 
22 A(22 # 23) — 1./RC72) 

A(22,25) = -t./R(78) 

A(22 p 32)=-1./R(35) 

B(22,1)=BBL*Q(26) 

A(23 p 1B)=A( 18, 23 ) 

A ( 23 , 2 2 ) =A ( 22 , 23 ) 

A(23,23)=1 ./R(72)+1./R(33)+1 ,/R(30)-BL*Q(27)+1./R(77) 

A(23,24) = -1 ,/R(77) 

A(23,31)=-1./R(33) 

B(23,1)»BBL*0(27) 

A(24 p 18) = A C 18,24) 

A(24,24)=1 ,/R(40)+1 ,/R(45)+1 ,/R(39)+1 ,/R(34)-BC*Q(28)+1 ,/R(77) 
A (24, 23) = — 1 . /R ( 77 ) 

IF (A(24,24) ) 94,94,24 

24 A(24,25)=-1./R(40) 

A(24,30) — 1./R(39) 

A(24,31)=-1./R(45) 

B(24, 1)=BBC*0(28) 

A (25, 1 9) =A( 1 9, 25) 

A(25,22) = -1./R(78) 

A(25,24)=a(24,25) 

A(25,25)“1./R(38)+1./R(40)+1./R(4l)+1./R(44)-BC*Q(29)+1./R(78) 

IF (A(25,25)) 93,93,25 

25 A(25,26)=-1./R(41) 

A(25,32)=-1./r(44) 
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8(25,1 )=BBC*0(29) PART 2B PAGE 3 

A(26,2t))=A(20,26) 

A( 26,21 ) = -1./R(79) 

A(26,25)=A(25,26) 

A(26,26)=1./R(38)+1./R(41)+1./R(42)+1./R(43)-BC*Q(30)+1./R(79) 
IF ( A(2.6, 2.6) ) 92,92,26 

26 A(26,27)=-1./R(42) 

A(26,33)=-1./R(43) 

B(26,1)=BBC*0(30) 

A(27,26)=A(26,27) 

A(27,27)=1./R(50)+1./R(42)-BC*Q(33) 

Z=R(51)+R(53) 

ZZ=R(46)+R(48) 

A(27,27)=A(27,27)+1./Z+1./ZZ 
IF (A(27,27)) 91,91,27 

27 A(27,28) — 1./R(50) 

A(27,38)=-1./7. 

A(27,44)=-1./ZZ 

B(27,1)~BBC*0(33) 

A(28,27)=A(27,28) 

Z=R(52)+R(54) 

ZZ<=R(47)+R(49) 

A(28,28)=1,/R(50)+1./Z+1./ZZ-BC*Q(34) 

IF (A(28,28)) 90,90,28 

28 A(28,37)=-1./7. 

A(28,43)— 1./ZZ 
B(28,1)=RBC*Q(34) 

STOP 

96 PRINT 1000 
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LERR=2 1 


PART 2B PAGE 4 


PUNCH 1001, A(21,21),R(32),R(37),R(73),BL,0(25) 

GO TO 998 
95 PRINT 1000 
LERR=22 

PUNCH 1001, A(22,22),R(31),R(72),R(73),BL,0(26) 

GO TO 998 
94 PRINT 1000 
LERR=24 

PUNCH 1001, A(24,24),R(40),R(45),R(39),R(34),BC,Q(28) 
GO TO 998 
93 PRINT 1000 
LERR=25 

PUNCH 1001, A(25,25),R(36),R(40),R(41),R(44),BC,Q(29) 
GO TO 998 
92 PRINT 1000 
LERR=26 

PUNCH 1001, A(26,26),R(38),R(41),R(42),R(43),BC,Q(30) 
GO TO 998 
91 PRINT 1000 
LERR=27 

PUNCH 1001, A(27,27),7.,ZZ,R(50),R(42),BC,Q(33) 

GO TO 998 
90 PRINT 1000 
LERR=28 

PUNCH 1001, A(28,28),7.,ZZ,R(50),BC,Q(34) 

GO TO 998 

998 PUNCH 1002, LERR 
STOP 
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1000 FORMAT (^9H UNSTABLE PROBLEM PART 2B PAGE 5 

1001 FORMAT (OE 1 0.3) 

1002 FORMAT ( 1 OHO INDEX =13) 

END 
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PART 2C PAGE 1 

C PART 2C CALCULATION UP TO A(44,44) 

D I MENS ION R( 1 00) , A(44,44) , 8(44, 1 ) ,Q( 1 00) 

COMMON A,B,R,0 

COMMON NR , NQ , BR , BL , BC , T ST AR 

COMMON TIN,T52,T53,T54,T55 

COMMON T64,T65,T66,W1,W2,C 

COMMON BBR, BBL, BBC 

N=44 

Z=R(55)+R(57) 

7.Z=R ( 59)+R(6l ) 

A(29,29)=1./R(76)+1./Z+1 ,/ZZ-BC*Q(39) 

IF (A(29,29)) 89,89,29 

29 A(29,30)=-1./R(76) 

A(29,42)=-1 „ /Z 
A(29,39) — 1./ZZ 

B ( 2 9, 1 ) =BBC*Q ( 3 9) 

A (3 0,24) -A (24, 30) 

A(30,29)=A(29,30) 

Z=R(60)+R(62) 

ZZ=R(56)+R(50) 

A(30,3 0) = 1./R(39)+1./R(76)+1./Z+1./ZZ-BC*Q(40) 

IF ( A ( 3 0,3 0) ) 88,88,30 

30 A(30,4l )=-1 ,/ZZ 
A(30,40)=-1./Z 

B (3 0, 1 )=BBC*0(40) 

A(3 1 ,23 )=A(23 ,3 1 ) 

A(3 1 ,24)=A(24,3 1 ) 

Z=R(63)+R(66) 

A(31 ,31 )=1 ,/R(33)+1 ,/R(45)+1 ,/R(74)+1 ,/Z-BL*Q(43) 


CA-16 



PART 2C PAGE 2 


IF (A(31,31)) 87,87,31 

31 A(31 t 32)— 1./R(74) 

A(31,34) — 1./7. 

B(31,D=BBL*Q(43) 

A(32,?.2)=A(22,32) 

A(32,25)=A(25,3?-) 

A ( 3 2 , 3 1 )=A(3 1 ,32) 

Z=R(64)+R(67) 

A(32,32)=1./R(35)+1./R(44)+1./R(74)+1./R(75)+1./Z-BL*Q(44) 
IF (A(32,32)) 86,86,32 

32 A(32,33)=-1./R(75) 

A(32,35)=-1./Z 

B(32,1)=BBL*Q(44) 

A(33,21 )=A(21 ,33) 

A(33,26)=a(26,33) 

A(33,32)=a(32,33) 

Z=R(65)+R(68) 

A(33,33)=1./R(75)+1./R(43)+1./R(37)+1./Z-BL*Q(45) 

IF ( A ( 33 , 33 ) ) 85,85,33 

33 A(33,36)=-1./Z 
B(33,D=BBL*Q(45) 

A(34,33)*=A(33,36) 

A(34,36)=W2*C+1./Z+1./R(71) 

A(34,38)=-W?>C 

B(34,1)=T66/R(71) 

A(35,32)=A(32,35) 

A(35,35)=W2*C+1 ./R(70)-A(32,35) 

A(35,36)=-W2*C 

B(35,1)»T65/R(70) 
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PART 2C PAGE 3 


A(36,31)=A(31,34) 

A(36,34)=W2*c+1./R(69)-A(31,34) 

A(36,35)=-W2*c 

B(36,1)=T64/R(69) 

A(37,27)=A(27,30) 

A(37,37)=-W2*C 

A(37,38)=W2*C-A(27,38) 

A(38,2.8)=A(28,37) 

A(38,37)=W2*C-A(28,37) 

B(38,1)=W2*C*TIN 

A(39, 30) =A (30,40) 

A(39,34)=-W2*C 

A(39 s 40)=-A(39p34)-A(39,30) 

A(40,29)=A(29,39) 

A(40,40)=a(39,34) 

A (40, 3 9) “—A (4 0,40) -A (4 0,2 9) 

A(4l , 1 1 )=A( 11,41) 

A(41,17)=-W1*C 

A(41,30)=A(30,41) 

A (41 ,41 )=-A(4l , It) -A (41, 17) -A (4 1,30) 
A(42,12)=A(12,42) 

A(42,29)=A(29,42) 

A (42, 41 )=A(41 ,17) 

A(42,42)=-A(42,41)-A(42,29)-A(42,12) 

A(43,3)=A(3,43) 

A(43,28)=A(28 p 43) 

A(43,43)=-A(43,3)-A(28,43)+W1*C 

B(43,1)=W1*C*TIU 

A(44,4)=A(4,44) 
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A(44,27)=A(27,44) 

A(44,43)=-W1*C 

A(44,44)=-A(44,43)-A(44,27)-A(44,4) 

GO TO 999 
89 PRINT 1000 
LERR=29 

PUNCH 1001, A(29 p 29),Z,ZZ,R(76),BC,Q(39) 

GO TO 998 
88 PRINT 1000 
LERR=3 0 

PUNCH 1001, A(30,30),Z,ZZ,R(39),R(76),BC,Q(40) 

GO TO 998 
87 PRINT 1000 
LERR=3 1 

PUNCH 1001, A(31, 31), Z,R(33),R(45),R(74),BL,Q(43) 

GO TO 998 
86 PRINT 1000 
LERR-32 

PUNCH 1001, A(32,32),Z,R(35),R(44),R(74),R(75),BL,Q(44) 
GO TO 998 
85 PRINT 1000 
LERR=33 

PUNCH 1001, A(33,33),Z,R(75),R(43),R(37),BL,Q(45) 

998 PUNCH 1002, LERR 
STOP 

C SET UP DATA FOR MAT INVERSE 

999 I F (SENSE SWITCH 1) 801,800 

801 DO 802 I =1 , N 

802 PUNCH 101, (A( I , J) , J=1 ,N) 
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PUNCH 101, (B(J,1),J=1,N) 

800 STOP 

101 FORMAT ( 6 E 1 0.3) 

1000 FORMAT (49H UNSTABLE PROBLEM 

1001 FORMAT (8E 10.3) 

1002 FORMAT ( 1 OHO INDEX =13) 

END 


CA-20 



SUBROUT inf: MAT I MV (A,N,B,M, DETER) PART 3 PAGE 1 

C THIS VERSION SOLVES SYSTEM OF EQUATIONS WITHOUT 
C GETTING INVERSE OF A MATRIX 

DIMENSION A(44,44),B(44) , IPIVO (44) ,P I V0T(44) 

DETER =1.0 
DO 20 J=1,N 
20 IPIV0(J)=0 
DO 550 1=1, N 
C 

C SEARCH FOR PIVOT ELEMENT 

C 

AMAX=0.0 
DO 105 J=1 , N 

IF (IPIVO(J)-I) 60,105,60 
60 DO 100 K= 1 , N 

IF (IPIVO(K) -1) 80, 100, 600 
80 IF (ABSF ( AMAX)-ABSF (A(J,K))) 85,100,100 
85 I ROW= J 
ICOLU =K 
AMAX=A(J,K) 

100 CONTINUE 
105 CONTINUE 

I PI V0( I COLU)=l P I VO ( I C0LU) + 1 
C 

C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 
C 

IF (I ROW- ICOLU) 140, 260, 140 
140 DETER =— DETER 
DO 200 L=1 , N 


F 

F 

F 


F 

F 

F 
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AMAX=A( I ROW,L) PART 3 PAGE 2 

A(IROW,L)=A( ICOLU, L) 

200 A( I C0LU,L)=AMAX 

amax=b( I row) 

B ( I R0W)=B ( I COLU) 

B( I C0LU)=AMAX 

260 PIVOT (I )=A( ICOLU, ICOLU) 

DETER =DETER*P I VOT ( I ) 

C 

C DIVIDE PIVOT ROW BY PIVOT ELEMENT 

C 

A( I COLU, I C0LU)=1 .0 
DO 350 L-1.N 

350 A( ICOLU,L)=A( ICOLU,L)/PIVOT( I ) 

B( I COLU)=B( I COLU) /P I VOT ( I ) 

C 

C REDUCE NON-PIVOT ROWS 


F 

F 

F 


F 

F 


380 DO 550 L 1 = 1 , N 

IF ( L 1 — I COLU) 400, 550, 400 
400 AMAX=A(L1, ICOLU) 

A(L1, ICOLU) *=0.0 
DO 450 L=1 , N 

450 A(Ll,L)*»A(Ll,L)-A( ICOLU, L)*AMAX 
B(L1)=B(L1)-B( ICOLU)*AMAX 
550 CONTINUE 
600 RETURN 
END 
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PART I ! I 


PART 3 PAGE 3 


DIMENSION A(Mf,itlv),B(MO 

COMMON A , B , R , 0 

NED=1 

READ 1 00, N 

! F (SENSE SWITCH 1) 5,20 
5 DO 10 1=1, N 

10 READ 130, C A ( I , J ) , J= 1 , H ) 

READ 130, (B(0,'=1,N) 

20 CALL MAl'iNV ( A, N , B , NED , DET ) 

DO 30 1=1, N 
30 PUNCH 170, I ,B( I ) 

STOP 

100 FORMAT ( I 5) 

13 0 FORMAT (6E 10.3) 

170 FORMAT (18H X( I 2, 2H)=E1 1.3) 

END 
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SECTION GA 


SALIENT- POLE, WOUND- POLE 
SYNCHRONOUS A-C GENERATOR 
COMPUTER PROGRAM AND TEST DATA 


SECTION GA 



SSWI 




SALIENT POLE COMPUTER DESIGN (INPUT) 

MODEL . _EWO ..... _ OESIGNNO(l) /reQr.t', 
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2.1* 

3389 

1 ' 

1*800 

100 

208 

78.5 

21.7 

21*.6 
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22.0 

3.5 

36L7 

1 

5700 

1B7 „ 

208 

72.5* 

28.5 

31.0 

8.8 

36Ll 

1 

5700 

19L 

208 

77.5 

294 

31.0 

L.0 

36L7 

1 

(coo 

132 

208 

77 

21.8 

21.2 

2.8 

36L7 

1 

7200 

0 

208 

- 

6.0 

6.25 

L.2 

3389 

1 

7200 

50 

208 

100 

8.75 

8.2 

6.3 

31*53 

1 

7200 

50 

206 

71.5 

10.5 

10.7 

1.9 

3L53 

1 

7200 

100 

208 

73 

16.0 

16.0 

0 

3L53 

1 

7200 

100 

208 

100 

13.6 

12.5 

8.1 

3L53 

l 

7200 

100 

206 

tm\ 

Ball 

16.0 

3.8 

3L38 

1 

7200 

100 

206 

ESI 

17.0 

16.3 

msm 

3389 

1 


/~t « 

























TEST- DATA - A C 5YNCMRON0OS GENER ATOf? 

G _ KVA 30 

S^Ec _MIL-G-6099j DWG E-1322 
Excitation From Integra l Excite r 



1 CALC 

i TEST 

TEST 

/,X ^ _ _ _ M/MUrE 

V) Dielectric Strength tor ome secowo 

value 

VALUE 

| LETTER 

! 

i 


J 

fa) Stator 


! 1500 v. 
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SALIENT POLE GENERATOR 


CALCULATION 

NUMBER 

ELECTRICAL 

SYMBOL 

FORTRAN 

SYMBOL 


-A* a 


(U6) 

A 

c 

AC 

(68) 

A g 

GA 

(79) 


AP 

(128) 

A 

A 

Ohk) 

A cd 

AB 

(153) 

A cf 

AS 


JkJL 


(15) 

b v 

BV 

(20) 

B 

BK 

(22) 

b o 

BO 

(22) 

b l 

Bl 

(22) 

b 2 

B2 

(22) 

b 3 

B3 

(22) 

b s 

BS 

(57) 

b tm 

TM 

(57a) 

b tl/3 

SM 

(76) 

b P 

BP 

(91) 

B t 

TE 


GA-li; \ 


CALCULATION 

ELECTRICAL 

FORTRAN 

NUMBER 

SYMBOL 

SYMBOL 

(94) 

B 

c 

BX 

(95) 

B g 

BG 

( 103 a) 

B 

P 

PD 

(135) 

b bo 

WO 

(135) 

b bl 

B 

(213b) 

b pl 

FD 

(76) 

b h 

BH 


C, c 


(32) 

C 

C 

(60) 

C x 

CX 

(71) 

C 1 

Cl 

(72) 

C 

cw 


w 

(73) 

C 

CP 


P 


(74) 

c 

m 

CM 

(75) 

C 

q 

CQ 


D, d 


(11) 

d 

DI 

(11a) 


DR 

(12) 

D 

DU 

(35) 

<*b 

DB 


GA-15 


CALCULATION 

ELECTRICAL 

FORTRAN 

NUMBER 

SYMBOL 

SYMBOL 


E| e 


(3) 

E 

EE 

(h) 

^PH 

EP 

m 

Ep (top) 

ET 

(56) 

Ep (bot) 

EB 

(127) 

E f 

EFNL 

(198) 

e d 

ED 

(238) 

%TL 

EF 


F, f 


(5a) 

f 

F 

(96) 

F g 

FH 

(97) 

f t 

FT 

(98) 

F 

r c 

AT 

(lOita) 

F 

FA 


P 

(127) 

f nl 

FN 

(180) 

F sc 

FSC 

(183) 

F & W 

WF 

(213c) 

f pl 

FX 


-Si,g 


(69) 

e e 

GE 

(59) 

Emin 

GC 
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ELECTRICAL 

FORTRAN 

NUMBER 

SYMBOL 

SYMBOL 

($9g) 

®max 

GP 


H, h 


(22) 

h 

0 

HO 

(22) 

h l 

HX 

(22) 

h 2 

HY 

(22) 

h 3 

HZ 

(22) 

h 

s 

HS 

(22) 

h t 

HT 

(22) 


HW 

(2 h) 

h 

c 

HC 

(37) 

h st 

SH 

(38) 

h 'st 

SD 

(133) 

h bo 

HO 

(133) 


DD 

(137) 

pH 

jf 

H 

(76) 

\ 

HH 

(76) 

h f 

HF 


JjJl. 


(8) 

% 

PI 

(127a) 

X FNL 

FI 

(182) 

Ar 

PR 


GA-17 




CALCULATION 

NUMBER 

ELECTRICAL 

SYMBOL 

FORTRAN 

SYMBOL 

(237) 

r FFL 

FI 

(2U1) 

i2r r 

PR 

(2U5) 

A l 

PS 

(19U) 

i 2 r 

PS 


K, k 


(2) 

k va 

V A 

(9a) 

K 

C 

CK 

(16) 


HK 

(19) 

k 

WL 

(U2) 

K sk 

FS 

(1*3) 

Kd 

DF 

(Mi) 

K P 

CF 

(61) 


FF 

(63) 

k E 

EX 

(67) 


CC 


L, 1 


(13) 

1 

L 

(17) 


SS 

(36) 

!e2 

CE 

(1*8) 

% 

EL 


GA-18 


CALCULATION 

NUMBER 

ELECTRICAL 

SYMBOL 

FORTRAN 

SYMBOL 

(U9) 


HM 

(76) 

S 

PL 

(139) 


SB 

(161) 


SI 


M, m 


(5) 

m 

PN 


N, n 


(1U) 

n 

V 

HV 

(30) 

"s 

SC 

(3U) 


SN 

(3Ua) 

N ’st 

SML 

(US) 

"e 

EC 

(138) 

"b 

BN 

(lii6a) 

"p 

PT 


JSlJB. 


(6) 

p 

PX 

(9) 

P F 

PF 


GA-19 



CALCULATION 

ELECTRICAL 

FORTRAN 

NUMBER 

SYMBOL 

SYMBOL 


Q, q 


(23) 

Q 

QQ 

(25) 

q 

QN 


R f r 


(7) 

R 

RPM 

pm 


(53) 

r sph 

RG 

(5U) 

R spH (Hot) 

RP 

(15U) 

R f (Cold) 

FK 

(155) 

R f (Hot) 

FR 


S| s 


(127c) 

Sp 

CONL 

(181) 

S CR 

SCR 

(239) 

S FL 

CD 


2jl± 


(176) 

T 'do 

TC 

(177) 

T a 

TA 

(173) 

T ’d 

T5 

(179) 

r pti 

d 

Tl* 


GA-20 



CALCULATION 

NUMBER 

ELECTRICAL 

SYMBOL 

FORTRAN 

SYMBOL 


J-aJL 


(ii*5) 

v r 

VR 


W, w 


(181*) 

WTNL 

ST 

(185) 

W c 

WQ 

(186) 

W NPL 

WN 

(193) 

W DNL 

WD 

(21*2) 

W TFL 

ST 

(21*3) 

WpFL 

PP 

(21*1*) 

W DFL 

DL 


X, x 


(50) 

x s °c 

T1 

(129) 

X 

XR 

(130) 

X 1 

XL 

(131) 

x ad 

XD 

(132) 

X aq 

XQ 

(133) 

X d 

XA 

(13U) 

X 

XB 


q 


(U*2) 

& 

O 

O 

T3 

(150) 

X 

o 

o 

o 

T2 


GA-21 




CALCULATION 

NUMBER 

ELECTRICAL 

SYMBOL 

FORTRAN 

SYMBOL 

(160) 

*F 

XF 

(163) 

XDd 

XI 

(165) 

X D q 

X2 

(166) 

X'D U 

XU 

(167) 

X’d 

xs 

(168) 

x’-d 

XX 

(169) 

X "q 

XY 

(170) 

x 2 

XN 

(172) 

x 0 

XO 


Y* y 


(31) 

y 

YY 




(26) 

T s 

TS 

(27) 

Tsl/3 

TT 

0*o) 

T sk 

SK 

Oil) 

% 

TP 

(UiO) 

r b 

TB 




CM 

vO 

Ai 

PC 


GA-22 




CALCULATION 

ELECTRICAL 

FORTRAN 

NUMBER 

SYMBOL 

SYMBOL 

(64) 

Ae 

EW 

(70c) 

Aa 

AG 

(80b) 

CO 

SL 

(81b) 

AtL 

TL 

(82b) 

AeL 

ES 


L 


(88) 

fa 

TG 

(92) 

r P 

FQ 

(100a) 

fa 

UX 

(102a) 

fal 

TF 

(197a) 

fal 

GZ 

(213a) 

P PTL 

GL 




(51) 

-4 

RS 

(141) 

] D 

RE 

(151) 

/f 

RR 




(77) 


PE 


GA-23 




CALCULATION 

NUMBER 

ELECTRICAL 

SYMBOL 

FORTRAN 

SYMBOL 


-0- 


(198a) 

■e- 

AN 


K 


(187) 


D1 

(188) 

K 

D2 


2 


(189) 

K 

3 

D3 

(190) 

\ 

DU 

(191) 

h 

D5 

(192) 


D6 


c 


PASS 1 SALIENT POLE! GENERATOR 
D' MENS I ON DA(8),DX(6),DY(8),DZ(8) 

1 FORMAT (El 1.5,E 11.5, F. 11.5, El 1.5, El 1.5, El 1.5) 

2 FORMAT 07. o, E7. 0, F7. 0,r7.0,r 7.0, F7.0,r 7.0, K7.0 t F7.0,F7.0) 
33 READ2 , VA, EE , EP, PN, F , PX, KPM, P I ,P(,CK 

READ2,P0L,DI ,DlJ,CL,HV,BV,Sf ,WL,BK,ZZ 
READ2,B0,B1 , B2,B3 ,BS,HO,HX,HY,HZ,HS 
READ2,HT,HW,QQ,W,RF,SC ,YY,C ,DW,SN 
READ2,SN1 ,DW1,DB,CE,SH,SD,PBA,SK,T1,RS 
READ2,GC,GP,C1 ,CW,CP,EL,CM,CO_, BH, BP 
READ2,HH,HF,SQ, PL, PE,DR,RK,WR,D 1 ,W0 
READ2,Ht),DD,H,B,BN,SB,TB,RE,T3,PT 
READ2,FE,RD,RT,T2,RR,SNL,WF 
S S=SF * ( C L-H V*B V ) 

HC= ( DU-D I -2 . 0*HS ) *0 . 5 
IF(HC-.7*HS)33,5,5 

5 QN«QQ/(PX*PN) 

TS*3. 142*01/00 
IF(ZZ-4. 0)29,30, 29 

29 TT“(0.667*HS+D I )*3 . 1 42/QQ 
GO TO 31 

30 TT»3.1416*(DI+2.*H0+1.32*BS)/QQ 

31 I F ( ZZ — 1 .0)6 ,6 , 7 

6 BO-BS 

CO(5.0*GC+BS)*TS/((5.0*GC+BS)*TS-BS*BS) 

GO TO 8 

7 QO(4.44*GC+0.75*B0)*TS 
CC-QC/(QC-B0*B0) 

8 CS«YY/(PN*QN) 
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TP-3. 142*01 /PX 
ir(SK)32,32,92 
32 FS-1.0 
GO TO 34 

92 FS-SI N( 1 .571*SK/TP)*TP/( 1 ,571*SK) 

34 I F ( PBA-60. ) 9, 9, 1 0 
9 D-1.0 

GO TO 95 

10 D-2.0 
95 I -QN 

U-l 

IF(QN-U)36,36,35 

35 U-PX*PN 
XX-U 
N-U 

DO 11 K-1.N 

Z-U/XX 

l=Z 

Z1-I 

I F (Z— Z 1)12,12, 11 
12 ZY-OQ/XX 
l-ZY 
Z 1 = 1 

I F (ZY-Z1 )37*37, 1 1 

11 XX-XX-1. 

36 ZY-ON 

37 DF-S I N ( 1 . 57 1 *D /PN) / ( Z Y*D*S I N ( 1 . 57 1 / ( PN*Z Y ) ) ) 
CF-SI N(YY*1 .571 /(PN*ON) ) 

EC-QQ*SC*CF*FS/C 
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DT=DW1 

IF(DT) 13,13,14 

13 AO0.785*DW*DW*SN1 
GO TO 24 

14 ZY=0.0 
DA(1)-0.05 
DA(2)-0.072 
DA(3 )**0. 1 25 
DA(4)«»0. 165 
DA(5)»0.225 
DA(6)«0.438 
DA(7)“0.688 
DA(8)»1 .5 

DX( 1 )«0. 000124 
DX(2)-0. 00021 
DX(3)-0.00021 
0X(4)-0.00084 
DX(5)“0. 00189 
DX(6)-0. 00189 
DY(1)-0.000124 
DY(2)»0. 000124 
DY(3)“0. 00084 
0Y(4)=0. 00084 
DY(5)**0. 00189 
DY(6)«0.00335 
DY(7)“0. 00754 
DY(8)=0.03020 
07.(1 )=0.000124 
DZ(2)-0. 000124 
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DZ(3)=0. 000124 
D7. (4) =0.0033 5 
D7.(5) = 0,00335 
DZ(6)=0.00754 
DZ(7)=0.0134 
DZ(8)»0.03 02 
*93 IF(DT-.05)94,94,15 

15 JA=0 
JB=0 
JC-0 
JD=0 

16 JA-JA+1 
JB-JB+1 
JC=JC+1 
JD-JD+1 

I F (DT— DA( JA) ) 17, 1 7, 16 
94 D=0 

IF(ZY)23,23,27 

17 IF(DW-0. 188)18, 18, 19 

18 CY=DX( JB-1 ) 

CZ=DX(JB) 

GO TO 22 

19 I F (DW-0.75)20,20,21 

20 CY=DY( JC-1 ) 

CZ=DY( JC) 

GO TO 22 

21 CY-DZ(JD-I) 

■C7.=OZ(JO) 

22 D=CY+(CZ-CY)*(DT-DA( JA-1 ) ) /(DA( JA)-DA( JA-1 ) ) 
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IF(ZY)23,23,27 

23 AC=(DT*DW-D)*SN1 

24 IF(RT)25,25,26 

25 AS»0.785*RD*RD 
GO TO 28 

26 ZY-1.0 
DT-RT 
DW-RD 

GO TO 93 

27 AS«RT*RD— D 

28 S-PI/(C*AC) 

PUNCH! ,VA,EE,EP,PN,F,PX 
PUNCH 1 ,RPM,P I ,PF ,CK,POL,D I 
PUNCH! ,DU,CL,SS,HC,SF,ON 
PUNCH!, WL,BK,ZZ, BO, B1,B2 
PUNCH! ,B3,BS,HO,HX,HY,HZ 
PUNCH! ,HS,HT,HW,QQ,W,RF 
PUNCH!, SC, YY,C,TS,SN,DB 
PUNCH!, CE,SH,SD,TT,SK,T! 
PUNCH! ,RS,GC,GP,C1 ,CW,CP 
PUNCH 1 ,FL,CM,CQ, BH,BP,HH 
PUNCH! ,HF,SQ,PL,PE,DR,RK 
PUNCH! ,CC,WR,Dl ,WO,HD,DD 
PUNCH!, H, B, BN, SB, TB, RE 
PUNCH 1 ,T3,PT,FE,RD,RT,T2 
PUNCH1 ,RR,SNL,WF,CS,AS,FS 
PUNCH!, TP, OF, CF, EC, AC, S 
PUNCH!, PBA 
PAUSE 
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C PASS 2 SALIENT POLE GENERATOR 

1 FORMAT (El 1.5,E 11.5, El 1.5, Ell. 5, El 1.5, El 1.5) 
3 FORMAT (9X F12.5,2X F 1 2.5) 

READ 1 , VA,EE,EP,PN,F,PX 
READ1, RPM,PI ,PF,CK,POL,DI 
READ 1 , DU,CL,SS,HC,SF,ON 
READ1 , WL,BK,ZZ,B0,B1,B2 
READ 1 , B3,BS,HO,HX,HY,HZ 
READ 1 , HS,HT,HW,QQ,W,RF 
READ 1 , SC,YY,C,TS,SN,DB 
READ1, CE,SH,SD,TT,SK,T1 
READ 1 , RS,GC,GP,C1,CW,CP 
READ 1 , EL,CM,CO,BH,BP,HH 
READ 1 , HF,SO,PL,PE,DR,RK 
READ 1 , CC,WR,D1 ,WO,HD,DD 
READ1, H,B,BN,SB,TB,RE 
READ1, T3,PT,FE,RD,RT,T2 
READ1, RR,SNL,WF,CS,AS,FS 
READ 1 , TP,DF,CF,EC,AC,S 
READ 1 , PBA 
GA=3 . 1 42*0 I *CL 
AG=6 .38*0 I / ( PX*GC*CC) 

GE=CC*GC 
IF (Cl) 44,43,44 

43 C1=(0.649*L0G(PE)+1.359)*((GC/GP)**0.352) 

44 IF(CW)45,45,46 

45 CW=0.707*EE*C1*DF/(F.P*PN) 

46 TG=6 000000. 0*EE/(CW*F.C*RPM) 

BG=TG/GA 
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I F (CP) 47 ,47, 48 

47 CP=(GC/GP)**0. 41 *PE*(LOG(GC/TP)*. 0378+1. 191) 

48 F0=TG*CP/PX 
IF(Z7.-3. 0)49,50,51 

49 SM=TT-BS 
GO TO 53 

50 SM=(3.1416*(DI+2.*HS)/QQ)-B3 
GO TO 53 

51 IF(ZZ-4. 0)50,52, 49 

52 SM=TT-.94*BS 

53 TE=TG/(O0*SS*SM) 

BX=0.5*FQ/(HC*SS) 

I F (EL) 54,54,62 

54 IF(RF) 55,55,61 

55 I F (PX-2.0) 56,56,57 

56 U=*1 .3 

GO TO 60 

57 I F (PX-4.0) 58,58,59 

58 U-1.5 

GO TO 60 

59 U*=1 .7 

60 EL=3 . 1 42*U*YY* ( D I +HS ) /OO+O . 5 
GO TO 62 

61 EL=2.0*CE+(3. 142*(0.5*HX+DB) )+(YY*TS*TS/(SQRT(TS*TS-BS*BS) )) 

62 HM-CL+EL 

RY-SC*QO*HM/ ( PN*AC*C*C ) 

RX=RS*0. 000001 

RB=(T 1+234. 5)*0. 003 94*RX 

RG=RX*RY 
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RP=RB*RY 

IF(SH)37,38,40 

38 ET-1 
EB-1 

GO TO 39 

40 AA=0.584+(SN*SN-1 .0)*0.0625*(SD*CL/(SH*HM))*2.0 
AB= ( SH*SC*F*AC / ( BS*RB*1 000000.0) ) **2 . 0 
ET =AA*AB*0 .00335+1 .0 
EB-ET-0.00168*AB 

39 IF(CM)63,63,G4 

63 AA-SI N(3.142*PE) 

AB=SI N(1 .571*PE)*4.0 
CM«(3.142*PE+AA)/AB 

64 A**P I *SC*CF / ( C*T S ) 

PRINT3 > SS,CC,HC,GA,TS,AG,TT,GE,FS,C1 ,DF,€Vt,-CF , CP t EC , EL , AC , CM 

PUNCH 1 ,VA,EE,EP,PN,F,PX 

PUNCH 1,RPM, PI ,PF,CK,POL,DI 

PUNCH 1 # DU,CL,SS,HC,SF,ON 

PUNCH 1 ,WL,BK,ZZ,B0,B1 ,B2 

PUNCH 1 , B3 , BS,HO,HX,HY,HZ 

PUNCH 1 ,HS # HT,HW,QQ,W,GE 

PUNCH1,SC,YY,C,TS,BG,TG 

PUNCH 1 ,FQ,TE,BX,TT,HM,SM 

PUNCH 1 ,RG t GC,RP,C1 ,CW,CP 

PUNCH1 # F.L f CM,CO,BH,BP,HH 

PUNCH 1 ,HF,SQ,PL f PE,DR,RK 

PUNCH 1 ,CC # WR,D1 ,WO,HD,DD 

PUNCH 1 ,H t B # BN,SB,TB,RE 

PUNCH 1 f T3,PT,FE,RD,RT,T2 
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PUNCH 1 f RR,SNL,WF,CS,AS,ET 

PUNCH1,TP,DF,CF,EB,AC,S 

PUNCH 1, AG,A,SM,PBA 

PAUSE 

END 
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C PASS 3 SALIENT POLE GENERATOR 

1 FORMAT (Ell. 5, E 11. 5, F.1 1.5, El 1.5, EH. 5, Ell. 5) 
3 F ORM AT ( 9X F12.5,2X F12.5) 

READ 1 , VA,EE,EP,PN,F,PX 
READ 1 , RPM,P! ,PF,CK,POL,DI 
READ 1 , DU,CL,SS,HC,SF,ON 
READ 1 , WL,BK,ZZ,B0,B1 ,B2 
READ 1 , B3,BS,HO,HX,HY,HZ 
READ 1 , HS,HT,HW,QQ,W,GE 
READ1, SC,YY,C,TS,BG,TG 
READ 1 , FQ,TE,BX,TT,HM,SM 
READ 1 , PvG,GC,RP,Cl ,CW,CP 
RE ADI, EL, CM, CO, BH,BP,HH 
READ1 , HF,SO,PL, PE,DR,RK 
READ1 , CC,WR,D1,WO,HD,DD 
READ1 , H,B,BN,SB,TB,RE 
READ1 , T3,PT,FE,RD,RT,T2 
READ1 , RR,SNL,WF,CS,AS,ET 
READ1 , TP,DF,CF,EB,AC,S 
READ1 , AG, A,SM,PBA 
l'F(CQ)69, 09,70 

69 AA=1.571*PE 
AB“3 . 1416*PE 

CQ«(0„5*C0S(AA)+AB-SIN(AB))/(4.0*SIN(AA)) 

70 XR-.0707*A*DF/(C1*BG) 

I F (ZZ-5.)3 50,351 ,350 

351 FF-1.0 
GO TO 75 

350 I F(PBA-60. )352,353 ,352 


GA-35 



353 1 F (CS-. 667)354, 355, 355 

355 D=.75 
Z=.25 

GO TO 74 

354 D-1.5 
Z=-„ 25 
GO TO 74 

352 I F(CS-. 667)3 56,3 57,3 57 
357 FF=.75 
GO TO 75 

356 0=1.2 
7.—.05 

74 FF-0*CS+Z 

75 CX-FF/(CF*CF*DF*DF) 

Z«CX*20.0/(PN*QN) 

BT=3.142*DI /OO-BO 
ZA=BT*BT / ( 16.0*TS*GC) 

ZB=0.35*BT/TS 

ZC»HO/BO 

ZD-HX*0.333/BS 

ZE-HY/BS 

I F (ZZ— 2.0) 76,77,78 

76 POZ*(7.E+ZD+ZA+ZB) 

GO TO 82 

77 PC«Z*(ZC+(2.0*HT/(B0+BS))+(HW/BS)+ZD+ZA+ZB) 

GO TO 82 

78 I F (ZZ-4.0) 79,80,81 

79 POZ* (7.C+< 2 . 0*HT / ( BO+B 1 ) ) +( 2 . 0*HW/ ( B 1+B2 ) ) +(HX*0 . 333 /B2 ) +Z A+ZB ) 
GO TO 82 
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80 PC«Z*(7.C+0.(>2) 

GO TO 82 

81 PC=Z*(7.E+7.D+(0. 5*GC/TS)+(0.25*TS/GC)+0.6) 

82 EK=EL/( 1 0.0**(0. 1 03*YY*TS+0.402) ) 

I F ( D I -8 . 0 ) 83,83,84 

83 EK-SQRT(EK) 

84 ZF=.612*L0G(10.0*CS) 

EW=6.28*EK*ZF*(TP**(0.62-(0.228*L0G(ZF) ) ) ) /(CL*DF*DF ) 
I F(PN-3 .0)85,86 ,86 

85 ZC=0. 1*DI*SIN(3.0*YY/(PN*QN))*1.57/(PX*GE*CF) 

GO TO 87 

86 ZC-0.0 

87 XL*»( PC+EW+ZC ) *XR 
XD-XR*AG*C1*CM 
XQ-XR*CO*AG 

WC« 0 . 3 2 1 *S C *Q0* AC *HM 

PR I NT3,S,C0,HM,A,RG,XR,RP,XL,ET,XD,EB,XQ 

PUNCH 1 ,VA,EE,EP,PN,F,PX 

PUNCH 1 ,RPh, P I , PF , CK, POL ,D I 

PUNCH 1 ,DU,CL,SS,HC,PC,QN 

PUNCH 1 ,WL,BK,ZZ,BO,XD,XQ 

PUNCH1 ,XR,BS,XL,HX,HY,HZ 

PUNCH 1 ,HS,WC, AC ,QQ,W,GE 

PUNCH 1 ,SC,YY,C,TS,BG,TG 

PUNCH 1 ,FQ,TE,BX,TT,EW,AG 

PUNCH 1 ,RG,GC,RP,C1,TP,CP 

PUNCH 1 ,DF,CM,CF,BH,BP,HH 

PUNCH 1 ,HF ,SO f PL, EB,DR,RK 

PUNCH 1 ,CC,WR,D1 ,WO,HD,DD 
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PUNCH1,H,B,BN,SB,TB,RE 

PUNCH 1 ,T3,PT,FE,RD # RT,T2 

PUNCH1 ,RR,SNL,WF,CS,AS,ET 

PUNCH1 ,SM 

PAUSE 

END 
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C PASS 4 SALIENT POLE GENERATOR 

\ FORMAT (Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 
3 F ORM AT ( 9X F12.5,2X F12.5) 

READ 1 , VA,EE,EP,PN,F,PX 
READ1, RPM,PI ,PF,CK,POL,DI 
READ 1 , DU,CL,SS,HC,PC,ON 
READ1, WL,BK,Z7.,BO,XD,XQ 
READ1, XR,BS,XL,HX,HY,HZ 
READ1, HS,WC,AC,QO,W,GE 
READ1, SC,YY,C,TS,BG,TG 
READ 1 , FO,TE,BX,TT,EW,AG 
READ1, RG,GC,RP,C1,TP,CP 
READ1, DF,CM,CF,BH,BP,HH 
READ 1 , HF,SO,PL,EB,DR,RK 
READ 1 , CC,WR,D1,WO,HD,DD 
READ1, H,B,BN,SB,TB,RE 
READ 1 , T3,PT,FE,RD,RT,T2 
READ1, RR,SNL,WF,CS,AS,ET 
READ 1 , SM 

ZA=3.1416*(DI+HS)/0Q 
I F (ZZ-3 .0) 88,89,88 

88 TM-ZA-BS 
GO TO 90 

89 TM=(3.14H>*(DI+2.*HS)/Q0)-B3 

90 W I - (TM*OQ*SS*HS+ ( D IJ-HC ) *3 . 1 42*HC*SS ) *0.283 
AN-0.0 

100 AN-AN+0.005 
AL«COS ( AN) 

I F (PF-AL) 100,100,101 
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101 VR=0.262*DR*RPM 
AP»BP*S0*RK 

SL=HF / ( ( DR-2 . 0*HH-0 . 5*HF ) *3 . 1 42 /PX-BP ) 

ES=( (PL-CL)*2.0+HF+0.25*BP) /CL 
TL*=(HH+GC-TP/ 18.0) *2.0/ (TP-BH) 

FH=BG*GE/0.00319 
ZG=PT*PX*FE*0. 000001 /AS 
FK°RR*ZG 

FR= ( T 2+23 4 . 5 ) *F K*0 . 003 94 

RO0.321*PT*PX*FE*AS 

RL=(1.5*TL+SL)*4.25+G.38*ES 

XF**( 1 .0— C 1 / ( ( 1 .273*RL/AG+2.0*CP)*CM))*XD 

S I =( 1 .S71*CP*AG+RL)*PT*PT*PX*S0_*0. 00000001 

IF(BN)307,306,307 

306 X1 = 0 
P2»0 
X2-0 

GO TO 308 

307 IF (DO) 103,103,102 

102 ZG=0.62 
GO TO 104 

103 ZG=0.333*H/B 

104 BD=(HD/W0+ZG+0.5)*6.38 
BE=(BH-(BN-1.0)*TB)*2.127/GE 

P1=(BD+BE)*RL*C0S((BN-1.0)*TB*1. 572/TP) /(BD+BE+RL) 
X 1«XR*P 1 

P2«(HD/W0+ZG+0.5+GC/TB)*20.0*TB/TP 

X2-XR*P2 

308 XA-XL-hXD 
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XB=XL+XO 
XU-XL+XF 
XS=0.88*XU 
IF (BN) 105, 105, 106 

105 XX-XS 
XY-XB 

GO TO 107 

106 XX-XL+X1 
XY-XL+X2 

107 XN«(XX+XY)*0.5 
TC-S I /FK 

RA«PN*P I *P I *RP*0.001 /VA 
TA-XN/(628.4*F*RA) 

T5=XS*TC/XA 
IF(F-60. 0)108, 108, 109 

108 T 4-0. 03 5 
GO TO 110 

109 T 4-0. 005 

110 I F (WF) 111,111,112 

1 1 1 WF«DR**2.5*(RPH**1 .5) *PL*0. 00000252 

112 WQ»(DU-HC)*1 .42*HC*SS*(BX/BK)**2.0*WL 
VfT-(SM)*()0_*SS*HS*0.453*(TE/BK)**2.0*WL 

PRINT3,PC,XA,EW,XB,WC,XF,WI,SI,TP,X1,AP,X2,ES,XU,TL,XS,SL,XX,AS,XY 

PRINT3,FK,XN 
PUNCH 1 ,VA,EE,EP,PN,F,PX 
PUNCH 1 ,RPM,PI ,PF,CK,POL,D I 
PUNCH 1 ,DU,CL,SS,HC,PC,QN 
PUNCH 1 ,WL,BK,ZZ,BO,XD,XQ 
PUNCH 1 ,XR,BS,TL,HX,HY,HZ 
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PUNCH 1 ,HS,ES,AC,OQ,W,GE 
PUNCH1,SC,YY,C,TS,BG,TG 
PUNCH 1 ,FQ,TE,BX,TT,EW,AG 
PUNCH 1,RG,GC,RP,C1,AP,P2 
PUNCH 1 ,DF,SL,CF,FH,BP,HH 
PUNCH 1 ,HF,SQ, PL,EB, DR,RK 
PUNCH1 ,CC,WR,D1 ,WO,TC,DD 
PUNCH1 ,H,B,BN,SB,TB,RE 
PUNCH1 ,T3,PT,VR,RD,RT,WT 
PUNCH 1 ,WO,SNL f WF,CS,AS,ET 
PUNCH 1 ,FK,FR,XA, XB,T5,T^ 
PUNCH1 , AN,AL,RC,TA,HD 
PAUSE 
END 
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PASS 5 SALIENT POLE GENERATOR 
1 FORMAT (El 1.5, El 1. 5,E 11.5, El 1.5,E11.5,E1 1.5) 
3 FORMAT ( 9X F12.5,2X F12.5) 

READ 1 , VA,EE,EP,PN,F,PX 
READ 1 , RPM,PI ,PF,CK,POL,DI 
READ 1 , DU,CL,SS,HC,PC,QN 
READ1, WL , BK, 7.Z , BO , XD , XO 
READ1, XR,BS,TL,HX,HY,HZ 
READ 1 , MS, ES , AC , OQ,W,GE 
READ 1 , SC,YY,C,TS,BG,TG 
READ 1 , FO,TE,BX,TT,EW,AG 
READ 1 , RG,GC,RP,C1,AP,P2 
READ 1 , DF,SL,CF,FH,BP,HH 
READ 1 , HF,SO,PL,EB,DR,RK 
READ 1 , CC,WR,D1,WO,TC,DD 
READ 1 , H,B,BN,SB,TB,RE 
READ1, T3,PT,VR,RD,RT,WT 
READ 1 , WO,SNL,WF,CS,AS,ET 
READ1, FK,FR,XA,XB,T5,T4 
READ 1 , AN,AL,RC,TA,HD 
GT=BO/GC 

I F (GT— 1 .0)304,304,303 

304 AA=2.6 

GO TO 115 

303 I F(GT-3 -75) 113,114,114 

1 13 AA=10.0**0.178/((GT-1.0)**0.334) 

GO TO 115 

114 AA=1 0.0**0. 1 1 /( (GT-1 .0)**0. 174) 

115 GF-AA*PI*SC/(C*FH) 
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305 I F (SC— 1 . 0)121, 121,122 

120 A5=0.0 

GO TO 129 

121 AX=1 .0 
AY=1 .0 

GO TO 125 

122 AX=3.0*YY/(PN*0N)-2.0 
1F(CS-0. 667)123, 124, 124 

123 AY«1.5*YY/(PN*0N)-0.25 
GO TO 125 

124 AY=.75*YY/(PN*0N)+0.25 

125 A3“AX*P2/AY 

A4=0. 07*AX*AG / ( CF*CF ) 

IF(AX) 120,120, 126 

126 IF(BN) 127,127, 128 

127 A5“A4 

GO TO 129 

128 A5»(A4+A3)/(A3*A4) 

129 I F (W) 130, 130, 131 

130 X0=0.0 

GO TO 132 

13 1 AA-(3 .0*HZ+HX) *1 .667/( PN*QN*CF*CF*DF*DF*BS) 
X0=( (PC+A5)*AX/AY+AA+0.2*EW)*XR 

132 D2=BG**2. 5*0. 000061 
D3«(0.0167*00*RPM)**1. 65*0. 00001 51 47 
I F(TS-0. 9) 133,133,134 

133 D4-TS** 1.285*0. 81 
GO TO 137 

134 I F (TS— 2.0) 135,135,136 
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135 D4-TS**1. 145*0. 79 
GO TO 137 

136 D4«TS**0.79*0.92 

137 D7=B0/GC 

I F (D7-1 .7) 138,130,139 

138 05-D7**2.31*0.3 
GO TO 144 

139 I F ( D7 — 3 .0) 140,140,141 

140 D5=D7**?-.0*0.35 
GO TO 144 

141 ! F (07-5.0) 142,142,143 

142 D5=D7**1 .4*0.625 
GO TO 144 

143 05=07**0.965*1.38 

144 D6-1 0.0**(0.932*C1-1 .606) 

BA-3. 142*0 1 *CL 
WN=D1*D2*03*04*D5*D6*BA 
UY-(SL+ES+TL)*S0*0. 00638 
AA=WO/(GC*CC) 

VT-0 

IF(AA) 148, 147, 148 
148 !F(AA-.65)145,145,146 

1 45 VT-LOG ( 1 0. 0*AA) * (-0 . 242 ) +0 . 59 
GO TO 147 

146 VT=0.327-(AA*0.266) 

147 UZ-(DU-HC)*0.7850/PX 
EZ=(ET+EB)*0. 5-1.0 
AA=PN*PI*PI 
PU=AA*RG 
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PV=AA*RP 


VV=EP*PI*PF*.003 

FSC-XA*FH*0.01 

PRINT3,FR,X0,RC,TG,WR,F0,VR,BG,TC,TE,TA,BX 

PUNCH 1 , VA,EE,EP,PN,F,PX 

PUNCH l,RPh, PI , PF ,CK, P()L,TB 

PUNCH! , BO,GC,HH,HF,SO,DR 

PUNCH 1 ,SB,RE,T3 ,PT,T5,T4 

PUNCH 1 ,WO,DD,H,BN,GF,VT 

PUNCH!, SNL,TS,CC,BG,FK,AP 

PUNCH 1 ,FQ,TE,BX,FR,XD,FH 

PUNCH1 ,WO,WT, AN, AL, XA,WF 

PUNCH1,AS,HS,B,GE,BP,XB 

PUNCH! ,WN,UY,UZ,EZ,PU,VV 

PUNCH! ,FSC,PV,HD,ON 

PAUSE 

END 
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C PASS 5A SALIENT POLE GENERATOR 
DIMENSION GX(4),YA(4),ED(4) 

1 FORMAT (Ell. 5, Ell. 5, Ell. 5, Ell .5, Ell . 5, E 1 1 .5) 
READ1 ,VA,EE,F.P,PN,F,PX 
READ1,RPM,PI ,PF,CK,POL,TB 
READ1 ,BO,GC,HH,HF,SQ,DR 
READ1,SB,RE,T3,PT,T5,T4 
READ1,W0,DD,H,BN,GF,VT 
READ1 ,SNL,TS,CC,BG,FK, AP 
READ1,FQ,TE,BX,FR,XD,FH 
READ! ,WQ,WT, AN, AL, XA,WF 
READ1,AS,HS,B,GE,BP,XB 
READ1,WN,UY,UZ,EZ,PU,VV 
READ1,FSC,PV,HD,QN 
YA( 1 )**1 00. 

YA( 2 >=*66.66667 
YA(3)=50. 

I F(P0L)3 1 0,320,3 1 0 
320 ED(4)=0 
GX(4)=0 
J A=3 

GO TO 330 
310 YA(4)=1 00. /POL 
JA“4 

330 DO 99 K=1,JA 

AA«ATAN( (XB/YA(K)+S I N( AN) ) /AL) 

BB“AA-AN 

ED(K)=XA*S1N(AA)/YA(K)+C0S(BB) 

I F(PF-. 95) 2 13, 2 13, 21 2 
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212 GX(K)=FO*CK 
GO TO 99 

213 GX(K)=(ED(K)-(.93*XD*SIN(AA)/YA(K)))*FQ 
99 CONTI NIJE 

I F( POL >820,821 ,820 

820 AJ=4 

GO T0822 

821 AJ=3 

822 PUNCH 1 ,GX(1),GX(2),GX(3),GX(4),AJ 
PUNCH 1 ,ED(1),ED(2),E[)(3),ED(4) 
PUNCH1,VA,EE,EP,PN,F,PX 

PUNCH 1 ,RPM,PI ,PF,POL,TB 
PUNCH1 ,BO,GC,HH,HF,SQ,DR 
PUNCH 1 , SB,RE,T3,PT,T5,T4 
PUNCH 1 ,WO,DD,H,BN,GF,VT 
PUNCH 1 , SNL,TS,CC,BG,FK, AP 
PUNCH1 ,FO,TE,BX,FR,XD,FH 
PUNCH1,W0,WT,AN,XA,WF 
PUNCH 1 , AS,HS,B,GE,BP,XB 
PUNCH1 ,WN,UY,UZ,EZ,PU,VV 
PUNCH 1 ,FSC,PV,HD,ON 
PAUSE 
END 





PASS 6 SALIENT POLE GENERATOR 

DIMENSION GX(4),G7.(4),GL(4),FD(4),FX(4),FB(4),ED(4) 
DIMENSION FI (5) , EF (4) , CD (4) , A I (60) 

4 FORMAT (F1 1 .3 r 8X F11 .3 ,F 1 1 .3 ,F 1 1 .3 ,F 1 1 .3 ) 

1 FORMAT (Ell .5, Ell .5, El 1 .5, El 1 .5, El 1.5, El 1.5) 

888 FORMAT (FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0) 

3 FORMAT ( 9X F12.5.2X F12.5) 

K=1 

823 READ888, Al (K),AI (K+1),AI (K+2),AI (K+3),AI (K+4),AI (K+5) 
K=K+6 

I F(K-59)823, 1 99, 1 99 
199 READ1 ,GX( 1 ) ,GX(2) ,GX(3) ,GX(4) , AJ 
READ 1, ED (1), ED (2), ED (3), ED (4) 

READ1 ,VA,EE,EP,PN,F,PX 
READ1 ,RPM,PI ,PF,POL,TB 
READ1, BO,GC,HH,HF ,SO,DR 
READ1, SB,RE,T3,PT,T5,T4 
READ1, WO,DD,H,BN,GF,VT 
READ1 , SNL,TS,CC,BG,FK,AP 
READ1, FO,TE,BX,FR,XD,FH 
READ1 ,WQ,WT,AN,XA,WF 
READ1, AS,HS,B,GE,BP,XB 
READ 1 , WN,UY,UZ,EZ,PU, VV 
READ1, FSC,PV,HD,0N 
LA-1 

DO 950 K-1 ,4 
GZ(K)-0 
GL(K)-0 
FD(K)-0 
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FX(K)=0 
FB(K)=0 
FI (K)=0 
CD(K)=0 
950 EF (K)=0 
FI (5)=0 
L0AD=1 . 

NA=1 
K= 1 
X-BX 

GO TO 802 

803 AT=UZ*Y 
NA=1 
K-2 
X=TE 

GO TO 802 

804 FT=HS*Y 
SA-FT+AT 
UX=(SA+FH)*UY 
TF-FO+UX 
PD=TF/AP 
NA=3 1 

K-3 

X=PD 

GO TO 802 

805 FA«(HF+HH)*Y 
FN-SA+FA+FH 
SCR-FN/FSC 

PRINT3,T5,FT,T4,AT,FSC,FH 
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221 FORMAT ( 9X FI 2. 5/) 

PR I NT22 1 , SCR 

JA**AJ 

LA=2 

DO 840 M=1,JA 

GZ(M)=( ( 1 .O+PF )*FT+AT+(FH*ED (M) ))*UX/ (FH+SA) 
GL(M)=GX(M)+GZ(M) 

FD(M)=GL(M)/AP 

K=4 

NA=31 

X=FD (M) 

GO TO 802 

806 FX(M)=(HF+HH)*Y 

FB(M)-(1.0+PF)*FT+AT+FX(M)+ED(M)*FH 
F I (M+1 )=FB(M) /PT 
EF (M)=F I (M+1 )*FR 
CD(M)=FI (M+D/AS 
840 CONT ! NUE 

F I ( 1 )=FN/PT 
CDNL=F I ( 1)/AS 
EFNL=F I ( 1 )*FK 
Z=FQ+UX 

PRINT4,UX,GZ(1),GZ(2),GZ(3),GZ(4) 

PRI NT4,Z,GL( 1 ) ,GL(2) ,GL(3),GL(4) 
PRINT4,PD,FD(1),FD(2),FD(3),FD(4) 
PRINT4,FA,FX(1),FX(2) f FX(3),FX(4) 
PRINT4,FN,FB(1),FB(2),FB(3),FB(4) 

PR I NT4 , F I ( 1 ) , F I (2), FI ( 3 ) , F I (4), FI (5) 

PRI NT4,CDNL,CD( 1 ) ,CD(2) ,CD(3) ,CD(4) 





PRINT4,F.FNL,EF(1),EF(2),EF(3),EF(4) 

PUNCH! ,F I ( 1 ) p F I (2), FI (3), FI (4), FI (5) 

PUNCH1 ,EP, PN,F,PX,WQ,WT 
PUNCH1 ,BO,GC,HH,HF,POL,TB 
PUNCH1 ,SB,RE,T3,HS,FK,FR 
PUNCH1 ,WO,DD,H,BN,GF,VT 
PUNCH 1,SNL,TS,CC,BG,AP,B 
PUNCH 1 ,FO,TE,BX,FH,XA,WF 
PUNCH1,WN,UY,UZ,EZ,PU,VV 
PUNCH1 ,PV,HD,ON 
PAUSE 

802 IF(A! (NA)-X)830,831,831 

831 NA=NA+3 

835 1 F ( A I (NA)-X)833 ,834,834 

833 NA=NA+2 
GO TO 835 

834 AA*=AI (HA) 

BB1=AI ( NA— 2) 

DC=AI ( NA+1 ) 

D=AI ( N A— 1 ) 

XX=( AA-BB1 ) /( . 43 43* (LOG (DC) -LOG (D+. 000 1 ) ) ) 
Y=AA-XX*.4343*L0G ( DC ) 

Y=EXP(2.306*(X-Y)/XX) 

GO TO (838, 839), LOAD 

838 GO TO (803, 804, 805, 806), K 

839 GO TO (236, 237, 238), K 

830 GO TO ( 836 , 840), LA 

836 PRINT850 

850 FORMAT (17HMACH I NE SATURATED) 
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PAUSE 

END 
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C PASS 7 SALIENT POLE GENERATOR 

DIMENSION PR( 5) , F I ( 5) , PS ( 5) ,G ( 5) ,DL ( 5) , PP (5) , EX (5) , ST ( 5) , VA(5) 
DIMENSION P(5),E(5),PM(5),SP(5) 

1 FORMAT (El 1,5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

4 FORMAT (F11.3.0X F11.3,F1 1 .3 ,F1 1 .3, F1 1 .3) 

READ1, FI (1), FI (2), FI (3), FI (4), FI (5) 

READ1, EP,PN,F,PX,WO,WT 
READ 1 , BO,GC,HH,HF,POL,TB 
READ 1 , SB,RE,T3,HS,FK,FR 
READ 1 , WO,DD,H,BN,GF,VT 
READ 1 , SNL,TS,CC,BG,AP,B 
READ 1 , FO,TE,BX,FH,XA,WF 
READ1, WN,UY,UZ,E7.,PU,W 
READ 1 , PV,HD,ON 
IF(RE)309,309,311 

309 WD-0.0 
WU=0.0 
GO TO 178 

311 FS1-2.0*QN*PN*F 
FS2=2.0*FS1 
M— 0 

150 IF(M-1)151, 152,178 

151 RM-RE 

GO TO 153 

152 RM-RE*(T3+234.5)/254.5 

153 AA-(FS1/RM)**0.5*DD*0.32 
AB- ( F S 2 /RM) **0 . 5*DD*0 . 3 2 
I F(AA-2.5) 160,160,161 

160 VI-1. 0-0. 15*AA+0.3*AA*AA 
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GO TO 162 


161 V 1 =AA 

162 I F(AB-2.5) 163,163,164 

163 V2=1.0-0.15*AB+0.3*AB*AB 
GO TO 165 

164 V2-AB 

165 IF(H-B) 167,166,167 

166 VC=0. 75/VI 
GO TO 169 

167 IF(DD) 166,168,166 

168 VOH/(3.0*B*V1) 

169 V S=H D /WO+ VT +VC 
VG=TB/(CC*GC) 

Q 1=1 .0-(1 .0/(((B0*0.5/GC)**2.0+1.0)**0.5)) 
QZ=BO/TS 

Q2=1.05*SIN(0Z*2.844) 

IF(QZ-0. 37)170,170, 171 

170 Q3-0.46 
GO TO 172 

1 7 1 Q3«0.23*S I N( 1 0.46*0Z-2 . 1 )+0. 23 

172 Q4=SIN(6.283*TB/TS-1.571)+1.0 
05=SIN(12.566*TB/TS-1.571)+1.0 
I F(H) 173 ,173,174 

173 AB=0.785*DD*DD 
GO TO 175 

174 AB-H*DD 

175 W2«PX*BN*SB*RM*1 ,246/( AB*1 000. ) 
W3“(Q2/(2.0*VS+(VG/Q4) ) ) **2 . 0*V 1 
W5- ( Q3 / ( 2 . 0*VS+( VG /Q5) ) ) **2 . 0*V2 
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WD=(TS*BG*Q1*CC)**2.0*W2*(W3+W5) 

M=M+1 

IF(H-l) 176,176,177 

176 WU=WD 

177 GO TO 150 

178 G ( 1 ) = 0 
G(2)«1 
G(3 )**t .5 
G(4)-2. 

G(5)=P0L 

PW=PU 

FW=FK 

WW=WU 

DO 183 M-1,5 
UA-G(M) 

PR ( M) =F I ( M) *F I ( M) *FW 
IF (Fi (M)) 198, 197, 198 
198 PS ( M) =PW*UA*UA 
X=WF +W0 

GM »(GF*IJA)**2. 0+1.0 

ST(MM2.0*(0.0027*XA*UA)**1.8+1.0)*WT 
VA(M)=VV*UA 
181 DL(M)«GH *WW 
PP(M)-GM *WN 
EX(M)=E7.*PS (M) 

SP(M)=PP(h)+DL(M)+PR(M)+PS(M)+EX(M)+ST(h)+X 
P(M)**(SP(M)/1 000. )+VA(M) 

I F (GH) 185, 184, 185 
184 PM(h)=0 
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E(M)**0 
GO TO 186 

185 PM(M)«(SP(M)/P(M))*.1 
E(M)=1 OO.O— PM(M) 

186 FW-FR 
WW-WD 

183 PW=PV 

PR I NT 4, PR (1), PR (2), PR (3), PR (4), PR (5) 
PRINT4, WF,WF,WF,WF,WF 
PRINT4, ST (1), ST (2), ST (3), ST (4), ST (5) 
PR I NT4 , WO. , WO. , WO , WO , WO. 

PRI NT4, PP(1),PP(2),PP(3),PP(4),PP(5) 
PRINT4, DL(1),DL(2),DL(3),DL(4),DL(5) 
PRINT4, PS(1),PS(2),PS(3),PS(4),PS(5) 
PRINT4, EX(1) f EX(2),EX(3),EX(4),EX(5) 
PRINT4, SP(1),SP(2),SP(3),SP(4),SP(5) 
PRI NT4, VA(1),VA(2),VA(3),VA(4),VA(5) 
PRINT4, P(1),P(2),P(3),P(4),P(5) 

PRI NT4,PM(1),PM(2),PH(3),PM(4) ,PM(5) 
PRINT4, E(1),E(2),E(3),E(4),E(5) 

I F(SNL) 1 91 , 1 91 , 1 90 

190 PUNCH 1 ,FH,TE,BX,UZ,UY,FQ 
PUNCH 1 , AP,HF,HH,HS,EP 

191 PAUSE 
197 PS(M)=0 

GM»0 
ST (M)“0 
X-0 

VA(M)-0 

gap.57 


l 



GO TO 181 
END 





C PASS 8 SALIENT POLE GENERATOR 
DIMENSION A I (60) 

1 FORMAT (E 11. 5, E 11. 5, F.1 1.5, Ell. 5, El 1.5, El 1.5) 

888 FORMAT (FI O.O, FI O.O, FI O.O, FI O.O, FI O.O, FI O.O) 

K=1 

823 READ888, Al (K),A! (K+1),AI (K+2),A» (K+3) , Al (K+4) , Al (K+5) 
K=K+6 

IF(K-59)823, 234,234 

234 READ 1 , FH,TE,BX,UZ,lJY,FO 
READ 1 , AP,HF,HH,HS, EP 
LOAD-2 . 

LA-1 

UB-0.7 

235 UB-UB+0.1 
V-1.732*EP*UB 
FG=FH*IJB 
TD=TE*UB 
BC=BX*IJB 

K=1 

NA-1 

X=BC 

GO TO 802 

236 AT«UZ*Y 
K=2 
NA—1 
X*=TD 

GO TO 802 

237 FT-Y*HS 
SA-FT+AT 
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UX=(FG+SA)*UY 

TF=FO*lJB+UX 

PD=TF/AP 

K=3 

NA=3 1 

X=PD 

GO TO 802 
238 FA=(HF+HH)*Y 
FN=SA+FA+FG 

246 FORMAT (F 1 2. 5, F 1 2. 5, F 1 2. 5, F 12. 5, FI 2. 5, FI 2. 5//) 

247 F0RMAT(F12.5,F12.5,F12.5,F12.5,F12.5,F12.5) 
PRINT247,V,FG,TD,FT,BC,AT 

PRI NT246,SA,UX,TF,PD,FA,FN 
I F (UB-1 .6 ) 235,245,245 
245 PAUSE 

802 I F ( A! (NA)-X)830, 83 1,831 
831 NA*=NA+3 

835 I F { A 1 (NA)-X)833 ,834,834 

833 NA*»NA+2 
GO TO 835 

834 AA=A I ( UA) 

BB1=AI (NA-2) 

DC“AI (NA+1) 

D=AI (NA-1) 

XX-(AA-BB1)/(.4343*(L0G(DC)-L0G(D+.0001))) 
Y-AA-XX*. 4343*L0G ( DC ) 

Y»EXP(2.306*(X-Y)/XX) 

GO TO (838, 839), LOAD 
838 GO TO (803, 804, 805, 806), K 
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839 GO TO (236, 237, 238), K 
830 GO TO (836, £40), LA 
836 PRINT850 

850 FORMAT (17HMACH I NE SATURATED) 
PAUSE 
END 
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NON-SALIENT-POLE DESIGN (INPUT) 
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INPUT PARAMETERS FOR NON-SALIENT POLE DESIGN 


125. 

208. 

120. 

3. 

400. 

4. 

12000. 

347. 

.8 

1.75 

7.13 

9.72 

6.09 

0 . 

0 . 

.9?- 

12. 

77.4 

2. 

.06 

0 . 

0 . 

0 . 

.27.5 

.05 

.333 

0 . 

0 . 

.462 

0 . 

.05 

54. 

1 . 

1 . 

2. 

10 . 

2. 

.17 

1. 

1 . 

.15 

.25 

.25 

.15 

.165 

60. 

.415 

200. 

.694 

.065 

0 . 

0 . 

0 . 

0 . 

0 . 

1 . 

48. 

40. 

0 . 

.209 

.100 

.834 

.209 

.934 

.459 

6.47 

.93 

7. 

3.235 

0 . 

0 . 

1.2 

55. 

22.4 

.159 

.056 

200. 

.694 

1 . 

0 . 



SATURATION 

CURVE ( 

STATOR 

MATERIAL 

) 



128. 

34. 


1 . 

50. 


2. 

60. 



3.1 

70. 


5.2 

76. 


8. 

86. 



20. 

96. 


70. 

104 

• 

150. 

128. 



• 

o 

00 












SATURATION 

CURVE ( 

ROTOR 

MATERIAL ] 

) 



128. 

34. 


1 . 

50. 


2. 

60. 



3.1 

70. 


5.2 

76. 


8. 

86. 



20. 

96. 


70. 

104 

• 

150. 

128. 



oo 

o 

• 
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SUMMARY OF DESIGN CALCULATIONS - NON-SALIENT - POLE (OUTPUT) 


MODE L 


EWO 


1(24) ( 

I — 

(26) < 2"s ) 


(27) (f t 1/3) 


(42) (K*k ) 


(43) (K d ) 


M4) (K D ) 


(45) ( c ) 

(46) (o c ) 

(47) (S, ) 
(49) (/, ) 

— (53) (Rp h ) 

(54) (R ph ) 


l< 5 5 > (tFto D ) 


1(56) (E F | >ot ) 


(62) ) 


(2 1 2o)( 

(153) (o cp ) 
JJ 54) (R F ) 
{r (155) (Rp r 


( 


(V r ) 


(177) (T n ) 


-£h- 


< (178) (T' d ) 


(17V) (T ’* r ) 


(Fsc ) 


DESIGN NO. 


DEPTH BEL OW SLOT 
SLOT PITCH 


5.60280 


■033 00 


SLOT PITCH 1/3 DIST. UP 


-W 86 


SKEW FACTOR 


^3 273 


DIST. FACTOR 


^9774 


PITCH FACTOR 


EFF. CONDUCTORS 


COND. AREA 


CURRENT DENSITY (S TA.) 
1/2 ME AN TU RN LENGTH 
COLD STA. RES. * 20° C 
HOT STA. RES. X °C 


EDDY FACTOR TOP 


.02489 
6968.90000 
12.83600' 
.00322 
.00551 


EDDY FACTOR BOT. 


STATOR COND. PERM. 


END PERM. 


WT. O F STA COPPER 
WT. OF STA IRON 
RO TOR SLO T LEAK PER 
ELD. COND. ARE A 
COLD FID RES 20^T 
HOT FLD ~rTs~~X* 


WT OF FLD COPPER 
WT OF ROTOR IRON~ 


PERIPHERAL SPEED 


ARM TIME CONS r. 


TRANS TIME CONST. 

SUB TRANS TIME CONST. 


SHORT CIR N I 
SHORT CIR RATIO 


-1 . 2 443 0 


1.03450 


3 32080 


J 1.078 00 
Li t 5 188 
^ 45001 
.^.00875 
^3 505 7-1 
66862 


-13.85100 

4- 5 . 5575 




-.01936 

^.oo5m 


__ __ 

#4c)_ (3!3) FLUXINP.C; 

(_ B £,d ) (314) POLE DENSITY 

(®rr ) (315) ROTOR CORE DENSITYf 

(F n I ) (1 27) TOT A L Nl 

(*fnl ) (12 7o ) F IE L D AMPS 

_(Sp ) (l?7 c )CUR.DENS.(FLD) 


(E F ) ( 1 2 71j ) F I E L D VOLTS 

(» ? R r ) (182) ROTOR LOSS 


-58.5 34 
3 7 .654 
1 1 16.103 
--2fL292 
.455. 
7.925- 


(183) F&W LOSS 


I ) (184) STA TOOTH LOSS 


■2778.500. 


IJEiL 


(185) STA CORE LOSS 
) 086) POLE FACE LOSS 


,2 81.930 




(I 2 R s ) (194)STATOR CU LOSS 


( - > (195) EDDY LOSS 

( - ) 

( - ) 


102,900 

,000 


(196) TOTAL LOSSES 425 1 ,6 13 


( - ) RA TI NG (KW) 

( - ) RATING&LOSSES 


.000 


( - ) PERCENT LOSSES 


f - ) PERCENT EFF. 


100.000 


136.43 0911 


170.4093d 


1,312; 

9.2451 


205.9356C 


11 .61018 


AIR GAP AREA 


I (67) (K s ) 
(68) (- 


AIR GAP PERM 


(70c) (A □) 


EFFECTIVE AIR GAP 


1(69) (g e ) 


FUND/MAX OF FLD. FLUX 


WINDING CONST. 


j(71) (C 1 ) 


(72) (C w ) 


POLE CONST. 


END. EXT. ONE TURN 


J (73) ( C p ) 


(48) (LE ) 


DEMAGNETIZING FACTOR 


(74) (C M ) 


AMP COND/IN 


1(128) (A) 


REACTANCE FACTOR 
LEAKAGE REACTANCE 


(129) (X) 

' (130) <X q 7 


REACTANCE OF 
ARMATURE REACTION 


I 031) (Xod) 


SYN REACT DIRECT AXIS 


(133) (X d ) 


FIELD LEAKAG E REACT 060) (X f f 


20 

17^7836 


Q 876 C FIELD SEL F INDU C TANCE 1(161) (L f ) 


UNSAT. T RANS. REAC T 
(sat. TRANS. REACT 


10,73736 SUB. TRA NS. R E * C T 
10-73 7^6 NEG SEQUENCE R EACT 


(166) ( X *H u ) 
0 67) ( X * cf ) 
068) (X” d ) 


[0 70) ( X 2 ) 


TOTAL FLUX 


FLUX PER POLE 

Jl7 , ^4Qf~GAP density 


072) (X Q ) 

7m~ «p < ) 


092) (^p ) 


1Q3L. 43 000 T00TH density 


i<95> (Bg) 


|TvT) (bT) 2 


CORE DENSITY 


66 . 1 2557 tooth ampere turns 


(94) (8 r ) 


I (97) (F, ) 


48.9480 1 C0R E AMPERE TURNS (98) (F c ) 

. 997 . 13 00C CAP AMPERE TURNS "(96) (F ) 


( tel) (318) 

(Vl> < 3, ’> 

(Bp C |) (321) 
(Ff| ) (236) 
(I HI ) (237) 
«T) <239) 


46 8.122 

.65.756_ 


8L583 103,758 


93.149 


48 9.013 I 510.188 499.579 


66 .601 


(E,f| ) (238) 


-2-942, 
53.505 
.6110.3 50 


-42.845 
£8.295 
71.605 
8177.405 
47 .876 


6-5485. 


A5558- 


68.040 

43.76-8- 


4547.475 jM 1.828 


-89. 954 
110 272 .844 


60.145 


1914.115 “34287199 54TOT2F7 
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SHOWING: 


VOLTAOE WAVES OBTAINED FROM FULL 
PITCH SEARCH COIL AND l/2 TURN SEARCH 
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COMPUTER PROCEDURE FOR 


NON SALIENT POLE DESIGN CALCULATIONS 

I. Clear core (no switch control). 

2* Insert output Form #1 into typewriter, set margin for correct 
output, and set typewriter for single space. 

3, Load pass #1 followed by input parameters (output punched cards). 

U. Load pass ft 2 followed by output from pass #1 (output printed 

plus punched cards ) . 

5. Load pass #3 followed by output from pass #2 (output printed 
plus punched cards). 

6. Load pass tth followed by output from pass #3 (output printed 
plus punched cards). 

7. Load pass ttS followed by output from pass tth (output printed 
plus punched cards). 

8. Load pass #5A followed by output from pass ft$ (output punched cards). 

9. Load pass #6 followed by Saturation curve values* and output 
from pass tt^A (output printed plus punched cards). 

10. Load pass #7 followed by output from pass #6 (output printed 
plus punched cards if no load saturation curve required). 

II. If there is card output from pass #7 a no load saturation curve 
is required. Insert output Form ft 2 in typewriter and set margin. 
Load pass #8 followed by saturation curve values* and output 
from pass #7 (output printed). 


* Saturation curves are loaded in order shown on Input Form ft 1. 
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ALL INPUT PARAMETERS ARE IN FORMAT F7.0 (FIG. 1) 
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ALL SATURATION CURVE VALUES ARE IN FORMAT F10 0 (FIG 2) 
(ALL SATURATION CURVES MUST HAVE 5 CAROS) 
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FIG. 2 


NON-SALIENT WOUND-POLE GENERATOR 
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C PASS 1 NON-SALIENT WOUND-POLE GENERATOR 
DIMENSION DA(8),DX(b),DY(8),DZ(8) 

1 F0RMAT(E1 1.5, El 1.5, El 1.5, El 1.5, El 1.5, El 1.5) 

2 FORMAT (F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0) 
33 READ2,VA,EE,EP,PN,F,PX,RPM,PI ,PF,POL 

READ2,DI ,DU,CL,HV,BV,SF,WL,BK,ZZ,BO 

READ2,Bl,B2,B3,BS,HO,HX,HY,HZ,HS,HT 

READ2,HW,QQ,W,RF,SC,YY,C,DW,SN,SN1 

READ2,DW1,DB,CE,SH,SD,PBA,SK,T1,RS,GC 

READ2,C1,CW,CP,EL,CM,TPR,Q1R,QR,ANRC,W0 

READ2,HD,HR1,BR,HR,TRS,ALR,RK,DR,DRS,BRH 

READ2,WR,D1,PT,FE,RD,RT,T2,RR,SNL,WF 

SS=SF*(CL-HV*BV) 

HC= ( DU-D I -2 . 0*HS ) *0. 5 
IF(HC-.7*HS)33,5,5 

5 QN=QQ/(PX*PN) 

TS=3. 142*01 /QQ 
IF(ZZ-4. 0)29,30,29 

29 TT=(0.667*HS+D I )*3. 142/QQ 
GO TO 31 

30 TT=3.1416*(DI+2.*H0+1.32*BS)/QQ 

31 IF (ZZ-1 .0)6,6, 7 

6 BO=BS 

CC=(5.0*GC+BS)*TS/((5.0*GC+BS)*TS-BS*BS) 

GO TO 8 

7 QC= ( 4.44*GC+0 . 75*BO) *TS 
CC=QC/(QC-BO*BO) 

8 CS=YY/(PN*QN) 

TP=3. 142*0 1 /PX 





IF(SK)32,32,92 
32 FS=1 .0 
GO TO 34 

92 FS=S I N( 1 ,571*SK/TP)*TP/(1 ,57i*SK) 

34 I F(PBA-60.) 9,9,10 
9 D=1 .0 

GO TO 95 
10 D«*20. 

95 I =QN 
IM 

IF(QN-U)36,36,35 

35 U=PX*PN 
XX-U 
N-U 

DO 11 K«1,N 
Z»U/XX 
l=»Z 
Z1 = l 

I F (Z-Z 1)12,12,11 
12 ZY=QQ/XX 
I =ZY 
Z 1 = 1 

I F (ZY-Z1 )37,37, 1 1 
11 XX=XX-1. 

36 ZY=QN 

37 DF*=S I N( 1 ,571*D/PH)/(ZY*D*S I N( 1 .571/(PN*ZY) )) 
CF=SIN(YY*1.571/(PN*QN)) 

EOQQ*SC*CF*FS/C 

DT=DW1 


IF(DT) 13,13,14 

13 AC=0.785*DW*DW*SN1 
GO TO 24 

14 ZY=0.0 

DA( 1 )=0.05 
DA(2)=0.072 
DA(3)“0. 125 
DA(4)«0. 165 
DA(5)=0.225 
DA(6)=0.438 
DA(7)=0.688 
DA(8)=1.5 
DX( 1 )=O.OOOl 24 
DX( 2) =0*00021 
DX(3)“0. 00021 
DX(4)=0. 00084 
DX(5)=0. 00189 
DX(6)=0. 00189 
DY( 1 )=0, 000124 
DY(2)=0. 000124 
DY (3)=*0. 00084 
DY(4)=0, 00084 
0Y(5)“0. 00189 
DY(6)=0. 00335 
DY(7)«0.00754 
DY(8)=0.03 020 
DZ ( 1 )=0.0001 24 
DZ(2)=0, 000124 
DZ(3)“0. 000124 
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DZ(4)=0. 00335 
DZ(5)=0. 00335 
DZ(6)=0.00754 
DZ(7)=0.0134 
DZ(8)=0.0302 

93 IF(DT-.05)94,94,15 

15 JA=0 
JB=0 
JOO 
JD-0 

16 JA-JA+1 
JB* 8 JB+1 
JOJC+1 
JD-JD+1 

IF(DT-DA(JA)) 17,17,16 

94 D-0 

IF(ZY)23,23,27 

17 ! F (DW-0. 188) 18, 18,19 

18 CY=DX( JB— 1 ) 

CZ=DX(JB) 

GO TO 22 

19 IF(DW-0.75)20,20,21 

20 CY-DY(JC-I) 

CZ=DY(JC) 

GO TO 22 

21 CY=DZ ( JD-1 ) 

CZ«OZ(JD) 

22 D»CY+(CZ-CY)*(DT-DA(JA-1))/(DA(JA)-DA(JA-1)) 
IF(ZY)23,23,27 


i 


23 AC=(DT*DW-D)*SN1 

24 IF(RT)25,25,26 

25 AS=0.785*RD*RD 
GO TO 28 

26 ZY=1 .0 
DT=RT 
DW=RD 

GO TO 93 

27 AS*=RT*RD-D 

28 S=PI/(C*AC) 

PUNCH 1 ,VA,EE,EP,PN,F , PX 
PUNCHl ,RPh,PI ,PF,POL,DI 
PUNCH1 ,DU,CL,SS,HC,SF,QN 
PUNCHl ,WL,BK,ZZ,B0,B1 ,B2 
PUNCHl, B3,BS, HO, HX,HY, HZ 
PUNCHl ,HS,HT,HW,QQ,W,RF 
PUNCHl, SC, YY,C,TS,SN,DB 
PUNCHl, CE,SH, SO, TT,SK,T1 
PUNCHl, RS,GC, Cl ,CW,CP,EL 
PUNCHl, CM,TPR,Q1R,QR,BR, HR 
PUNCHl ,TRS, ALR, DR, RK,CC,WR 
PUNCHl ,D1 , WO, HD, HR 1 , ANRC,DRS 
PUNCHl ,BRH,PT,FE,RD,RT,T2 
PUNCHl, RR,SNL,WF,CS, AS, FS 
PUNCHl ,TP,DF,CF,EC,AC,S 
PUNCHl, PBA 
PAUSE 
END 
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C PASS 2 NON-SALIENT WOUND-POLE GENERATOR 
1 FORMAT (El 1.5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 
3 FORMAT (9X F12.5,2X F12.5) 

READ1, VA,EE,EP,PN,F,PX 
READ1 ,RPM,PI ,PF,POL,D I 
READ1, DU,CL,SS,HC,SF,QN 
READ1, WL,BK,ZZ,B0,B1,B2 
READ1, B3,BS,HO,HX,HY,HZ 
READ1, HS,HT,HW,QQ,W,RF 
READ1, SC,YY,C,TS,SN,DB 
READ1, CE,SH,SD,TT,SK,T1 
READl,RS t GC,C1,CW,CP,EL 
READ1,CM,TPR # Q1R,QR,BR,HR 
READ1 ,TRS, ALR, DR,RK,CC,WR 
RE AD 1 , D 1 , WO , HD , HR 1 , ANRC , DRS 
READ1,BRH,PT,FE,RD,RT,T2 
READ1 p RR,SNL,WF,CS,AS,FS 
READ1, TP,DF,CF,EC,AC,S 
READ1.PBA 
GA«=3 . 142*D I *CL 
AG=6.38*DI/(PX*GC*CC) 

ALP=QR/Q1R 

X=BR**2 

IF (BR-WO)41 ,42,41 
42 RCOTRS*(5.*GC+BR) 

RCC=RCC/(RCC-X) 

GO TO 43 

41 RCC=TRS*(4.44*GC+.75*BR) 

RCC«=RCC/ (RCC-X) 
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43 X=1.5708*ALP 
IF(TPR-1.)47, 48,47 

48 GE=CC*GC 

Cl=(C0S(X)*((RCC-1.)/RCC)+(.6366/(RCC*ALP))*SIN(X))*1.27 
CP=1 ,-ALP+ALP/ (2.*RCC) 

CFA=1.-ALP+ALP/(3-*RCC) 

GO TO 63 
47 GE=RCC*CC*GC 

C1=(.8105/ALP)*SIN(X) 

CP=1 .-ALP/2. 

CFA«1 ,-2.*ALP/3. 

63 CM=1.23*ALP/SIN(X) 

44 IF(CW)45,45,46 

45 CW=0.707*EE*C1*DF/(EP*PN) 

46 TG=6000000.0*EE/(CW*EC*RPM) 

BG-TG/GA 

FQ=TG*CP/PX 
I F (ZZ-3 . 0)49, 50,51 

49 SM=TT-BS 
GO TO 53 

50 SM=(3.1416*(DI+2.*HS)/QQ)-B3 
GO TO 53 

51 IF(ZZ-4. 0)50,52, 49 

52 SM=TT-.94*BS 

53 TE=TG/(QQ*SS*SM) 

BX=0.5*FQ/(HC*SS) 

IF(EL) 54,54,62 

54 IF(RF) 55,55,61 

55 IF (PX-2.0) 56,56,57 
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56 U=1 .3 

GO TO 60 

57 I F (PX-4.0) 58,58,59 

58 U=1 .5 

GO TO 60 
59U-1.7 

60 EL=3 . 1 42*U*Y Y* ( D I +HS ) /QQ+O . 5 
GO TO 62 

61 EL=2.0*CE+(3.142*(0.5*HX+DB))+(YY*TS*TS/(SQRT(TS*TS-BS*BS))) 

62 HM=CL+EL 

RY=SC*QQ*HM/ ( PN*AC*C*C ) 

RX*RS*0 .000001 

RB“ ( T 1 +23 4. 5) *0 . 003 94*RX 

RG=RX*RY 

RP»RB*RY 

A-PI*SC*CF/(C*TS) 

XR».0707*A*DF/(C1*BG) 

PR I NT3,SS,CC,HC,GA,TS, AG,TT,GE,FS,C1 ,DF,CW,CF,CP, EC, EL, AC,CM 

PUNCH 1 ,VA, EE,EP,PN,F,PX 

PUNCH1 ,RPM,PI ,PF,POL,D I 

PUNCH1 ,DU,CL,SS,HC,SF,QN 

PUNCH 1 ,WL,BK,ZZ,B0,B1 ,B2 

PUNCH1 ,B3,BS,H0,HX,HY,HZ 

PUNCH1 ,HS,HT,HW,QQ,W,GE 

PUNCH 1 ,SC,YY,C,TS,BG,TG 

PUNCH1 ,FQ,TE,BX,TT,HM,SM 

PUNCH1 ,RG,GC,RP,C1 ,CW,CP 

PUNCH1 ,EL,CM,TPR,Q1R,QR,BR 

PUNCH1 ,HR,TRS,ALR,DR,RK,CC 
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PUNCH 1 , WR , D 1 , WO , HD , HR 1 , ANRC 
PUNCH 1 ,DRS,BRH,CFA,PT,FE,RD 
PUNCH 1,RT,T2,RR,SNL,WF,CS 
PUNCH 1, AS, SH,TP,DF,CF,SN 
PUNCH 1 , AC,S, AG, A,SM,SD 
PUNCH1 ,RB,XR,PBA 
PAUSE 
END 



C PASS 3 NON-SALIENT WOUND-POLE GENERATOR 

1 FORMAT (Ell. 5, El 1.5, El 1.5, Ell. 5, Ell. 5, El 1.5) 

3 F ORMAT ( 9X F12.5,2X F12.5) 

READ1 , VA,EE,EP,PN,F,PX 
READ1 ,RPM,PI ,PF,POL,D I 
READ1 , DU,CL,SS,HC,SF,QN 
READ1 , WL,BK,ZZ,BO,B1,B2 
READ1 , B3,BS,HO,HX,HY,HZ 
READ1 , HS,HT,HW,QQ,W,GE 
READ1, SC,YY,C,TS,BG,TG 
READ1 , FQ,TE,BX,TT,HM,SM 
READ1 , RG,GC,RP,C1 ,CW,CP 
READ 1 ,EL,CM,TPR,Q1R,QR,BR 
READ 1 ,HR,TRS,ALR,DR,RK,CC 
READ 1 ,WR,D1 ,WO,HD,HR1 , ANRC 
READ 1 ,DRS,BRH,CFA,PT,FE,RD 
READ 1 ,RT,T2,RR f SNL,WF,CS 
READ 1 ,AS,SH,TP,DF,CF,SN 
READ 1 , AC,S, AG, A,SM,SD 
READ1 ,RB,XR,PBA 
IF(SH)37, 38,40 
38 ET=1 
EB»1 

GO TO 39 

40 AA*=0.584+(SN*SN-1 .0)*0.0625*(SD*CL/(SH*HM) )*2.0 
AB-(SH*SC*F*AC/(BS*RB*1 000000.0) )**2.0 
ET=AA*AB*0. 0033 5+1 .0 
E B*=ET-0 . 00 1 6 8* AB 
IF (ZZ-5.)350,351,350 
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351 FF**1 .0 
GO TO 75 

350 IF(PBA-60.)352,353,352 

353 IF(CS-.667)354,355,355 

355 D*=.75 
Z«.25 

GO TO 74 

354 D=1 .5 
Z=-.25 
GO TO 74 

352 I F(CS-. 667)356,357,357 
357 FF=.75 

GO TO 75 

356 D-1.2 
Z— .05 

74 FF«D*CS+Z 

75 CX=FF/(CF*CF*DF*DF) 

Z=CX*20.0/(PN*QN) 

BT=3.142*DI/QQ-B0 

ZA=BT*BT/(16.0*TS*GC) 

ZB=0.35*BT/TS 

ZC*=HO/BO 

ZD=HX*0.333/BS 

ZE=HY/BS 

I F (ZZ— 2.0) 76,77,78 

76 PC=Z* ( ZE+ZD+Z A+ZB ) 

GO TO 82 

77 PC=Z*(ZC+(2.0*HT/(B0+BS))+(HW/BS)+ZD+ZA+ZB) 
GO TO 82 
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78 I F (ZZ-4.0) 79,80,81 

79 PC=Z*(ZC+(2.0*HT/(B0+B1))+(2.0*HW/(B1+B2))+(HX*0.333/B2)+ZA+ZB) 

GO TO 82 

80 PC=Z*(ZC+0.62) 

GO TO 82 

81 POZ*(ZE+ZD+(0.5*GC/TS)+(0.25*TS/GC)+0.6) 

82 EK**EL/( 1 0.0**(0. 1 03*YY*TS+0.402) ) 

IF (DI-8.0) 83,83,84 

83 EK-SQRT(EK) 

84 ZF=.612*L0G(1 0.0*CS) 

EW=6.28*EK*ZF*(TP**(0.62-(0.228*L0G(ZF))))/(CL*DF*DF) 

XL=(PC+EW)*XR 

XD=XR*AG*C1*CM 

WC= 0.321 *SC*QQ*AC*HM 

PR I NT3 ,S,A,HM,XR,RG,XL,RP,XD 

PUNCH1 ,VA,EE,EP,PN,F,PX 

PUNCH1 ,RPM, PI ,PF,POL,D I 

PUNCH 1 ,DU,CL,SS,HC,PC,QN 

PUNCH1 ,WL,BK,ZZ,BO,XD 

PUNCH 1 ,XR,BS,XL,HX,HY,HZ 

PUNCH1 ,HS,WC, AC,QQ,W,GE 

PUNCH1 ,SC, YY,C,TS,BG,TG 

PUNCH1 ,FQ,TE,BX,TT,EW,AG 

PUNCH 1 ,RG,GC,RP,C1,TP,CP 

PUNCH1 ,DF,CM,CFA,TPR,Q1R,QR 

PUNCH1 ,HR,TRS,ALR,EB,DR,RK 

PUNCH1 ,CC,WR,D1 ,W0,HD,HR1 

PUNCH1 , ANRC,DRS,BRH,PT,FE,RD 

PUNCH 1 ,RT,T2,RR,SNL,WF,CS 
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PUNCH 1 ,AS,ET,SM,BR,CF 

PAUSE 

END 
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C PASS 4 NON-SALIENT WOUND-POLE GENERATOR 
1 FORMAT (El 1.5, El 1.5, El 1.5, Ell. 5, El 1.5,E1 1.5) 
3 FORMAT (,9X F-J2.5,2X F12.5) 

READ1, VA,EE,EP,PN,F,PX 
READ1,RPM,PI ,PF,POL,DI 
READ1, DU,CL,SS,HC,PC,QN 
READ1, WL,BK,ZZ,BO,XD 
READ1, XR,BS,XL,HX,HY,HZ 
READt, HS,WC,AC,QQ,W,GE 
READ1, SC,YY,C,TS,BG,TG 
READ1, FQ,TE,BX,TT,EW,AG 
READ1, RG,GC,RP,C1,TP,CP 
READ 1,DF,CM,CFA,TPR,Q1R,QR 
READ 1,HR,TRS,ALR,EB,DR,RK 
READ 1,CC,WR,D1,WO,HD,HR1 
READ 1,ANRC,DRS,BRH,PT,FE,RD 
READ 1,RT,T2,RR,SNL,WF,CS 
READ1 , AS,ET,SM,BR,CF 
ZA=3.14l6*(DI+HS)/QQ 
I F (ZZ-3.0) 88,89,88 

88 TM=ZA-BS 
GO TO 90 

89 TM=(3.1416*(DI+2.*HS)/QQ)-B3 

90 W I - ( T M*QQ*S S*HS+(D U-HC ) *3 . 1 42*HC*S S ) *0 . 283 
AN*=0.0 

100 AN-AN+0.005 
AL*=COS (AN) 

I F(PF-AL) 100,100,101 

101 VR*=0. 262*DR*RPM 
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FH=BG*GE/0.00319 
ZG=PT*PX*FE*0. 000001 /AS 
FK*»RR*ZG 

FR=(T2+234.5)*FK*0.003 94 
RC=0. 3 2 1 *PT*PX*F E*AS 
XA=»XL+XD 
X=12.76*PX/QR 

Y=.35*(TRS-WO)/TRS+GC/(2.*TRS) 

I F (WO-BR) 1 02, 1 03 , 1 02 

103 XRS=(HD/BR+HR1/(2.*BR)+Y)*X 
GO TO 104 

102 XRS=(HD/W0+2.*(HR-HR1-HD)/(W0+BR)+HR1/(2.*BR)+Y)*X 

104 EWR»TP*(TP*(6.6756l87E-4*TP-3.0560938E-2)+.66201215)-. 10576361 
EWR=EWR*6.28/ALR 

XF1-EWR+XRS 

XF=XR*CM*CM*XF 1*4. /3. 1416 

S|=(PT*PT*PX*ALR/1 ,E+8)*((CFA*3.1 9*TP/GE)+XF1 ) 

XZ=(3.19*PX/DI )*(GC+.47*SQRT(400./F)+HD)*XR 
XU=XL+XF*(XD/ ( XD+XF ) ) 

XS=0.88*XU 

XX=XL+XZ 

XN=XX 

XB«=XA 

TC=SI/FK 

RA»PN*P I *P I *RP*0.001 /VA 
TA=XN/(628.4*F*RA) 

T5“XS*TC/XA 
I F (F-60.0) 1 08, 1 08, 1 09 
108 T4-0.035 
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GO TO 110 

109 T 4=0.005 

110 I F <WF ) 1 1 1 , 111,112 

1 1 1 WF=DR**2 . 5*(RPM** 1.5) *ALR*0 . 00000252 

112 WQ=(DU-HC)*1 ,42*HC*SS*(BX/BK)**2.0*WL 
WT=(SM)*QQ*SS*HS*0.453*(TE/BK)**2.0*WL 
PR I NT3,ET 

PRI NT3,EB,XA,PC,XF,EW,SI ,WC,XU,WI ,XS 

PRINT3,XRS,XX,AS,XN 

PUNCH1,VA,EE,EP,PN,F,PX 

PUNCH1 t RPM,PI ,PF,P0L,D I 

PUNCH1 ,DU,CL,SS,HC,PC,QN 

PUNCH1,WL,BK # ZZ,B0,XD,XR 

PUNCH1 ,BS,XRS,HX # HY,HZ,HS 

PUNCH1,BR,AC,QQ,W,GE,SC 

PUNCH1 ,YY ,0,1s, BG,TG,FQ 

PUNCH1,TE,BX,TT,EW,AG,RG 

PUNCH 1 ,GC,RP, Cl ,TPR,Q1R,QR 

PUNCH1 , HR, TRS , ALR , OF , CF 

PUNCH1 ,FH,HR1 , ANRC,DRS, BRH,XZ 

PUNCH1 ,EB,DR,RK,CC,WR,D1 

PUNCH1 ,WO,TC,PT, VR,RD,RT 

PUNCH1,WT,WQ,SNL,WF,CS,AS 

PUNCH1,ET,FK,FR,XA,XB,T5 

PUNCH1 ,T4,AN,AL,RC,TA,HD 

PAUSE 

END 
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C PASS 5 NON-SALIENT WOUND-POLE GENERATOR 
1 FORMAT(El 1.5, El 1.5, El 1.5, Ell. 5, El 1.5, El 1.5) 
3 FORMAT (9X F12.5,2X F12.5) 

READ1 , VA,EE,EP,PN,F,PX 
READ1,RPM,PI ,PF,POL,DI 
READ1, DU,CL,SS,HC,PC,QN 
READ 1 ,WL,BK,ZZ,BO,XD,XR 
READ 1 ,BS,XRS,HX,HY,HZ,HS 
READ 1 ,BR, AC,QQ,W,GE,SC 
READ 1,YY,C,TS,BG,TG,FQ 
READ 1 ,TE,BX,TT,EW,AG,RG 
READ 1,GC,RP,C1,TPR,Q1R,QR 
READ 1 ,HR,TRS, ALR,DF,CF 
READ 1 ,FH,HR1 , ANRC,DRS,BRH,XZ 
READ 1 ,EB,DR,RK,CC,WR,D1 
READ 1 ,WO,TC,PT, VR,RD,RT 
READ 1,WT,WQ,SNL,WF,CS,AS 
READ 1,ET,FK,FR,XA,XB,T5 
READ 1,T4,AN,AL,RC,TA,HD 
GT=BO/GC 

IF(GT-1. 0)304, 304, 303 

304 AA=2.6 

GO TO 115 

303 IF(GT-3. 75)113, 114,114 

1 13 AA=1 0.0**0. 1 78/ ( ( GT— 1 .0) **0.33 4) 

GO TO 115 

114 AA=10.0**0.11/((GT-1.0)**0.174) 

115 GF=«AA*P1*SC/(C*FH) 

305 IF(SC-1. 0)121, 121,122 
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121 AX=1 .0 
AY=1 .0 

GO TO 125 

122 AX=3.0*YY/(PN*QN)-2.0 
IF(CS-0. 667)123, 124,124 

123 AY=1.5*YY/(PN*QN)-0.25 
GO TO 125 

124 AY=.75*YY/(PN*QN)+0.25 

125 I F (WR) 126,127,126 
127 IF(TPR-1.)85,86,85 

85 X=Q1R 

GO TO 87 

86 X*=QR 

87 WR=.238*(3. 1416*(DR-HR)-X*BR)*ALR*HR*RK 
HRC 1 = ( DR-2 . *HR-DRS) /2 . 

WR=WR+. 89* ( DRS+HRC 1 ) *HRC 1 *ALR*RK 

126 IF(W) 130,130,131 

130 X0=0.0 

GO TO 132 

131 AA»(2.0*HZ+HX)*1.6/(PN*QN*CF*CF*DF*DF*BS) 
X0=( (PC+XZ)*AX/AY+AA+0.2*EW)*XR 

132 D2=BG**2. 5*0. 00006 1 

D3*» ( 0 . 0 1 6 7*QQ*RPM) **1.6 5*0 . 0000 15147 
I F (TS-0.9) 133,133,134 

133 D4«»TS** 1.285*0. 81 
GO TO 137 

134 IF(TS-2.0) 135,135,136 

135 D4«TS**1. 145*0. 79 
GO TO 137 
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136 d4=TS**0.79*0.92 

137 D7“B0/GC 

IF(D7-1.7) 138,138,139 

138 D5=D7**2.31*0.3 
GO TO 144 

139 1F<07-3.0) 140,140,141 

140 D5=D7**2.0*0.35 
GO TO 144 

141 I F (D7-5.0) 142,142,143 

142 D5=D7**1 .4*0.625 
GO TO 144 

143 D5=D7**0. 965*1. 38 

144 D6=1 0.0**(0.932*C1-1 .606) 
BA»3.142*DI*CL 
WN=*D1*D2*D3*D4*D5*D6*BA 
UY=XRS*ALR*RK/1 000. 
AA-WO/(GC*CC) 

VT=0 

I F (AA) 148, 147, 148 
148 IF(AA-.65)145,145,146 

145 VT«=L0G ( 1 0.0*AA)* (-0.242) +0.59 
GO TO 147 

146 VT=0.327-(AA*0.266) 

147 UZ=(DU-HC)*0.7850/PX 
EZ=(ET+EB)*0. 5-1.0 
AA=PN*PI*PI 
PU=AA*RG 

PV=AA*RP 

VV»EP*P I *PF*. 003 
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FSOXA*FH*O.Ol 

PR I NT3 ,FK, XO,FR,TG,RC,FQ,WR,BG, VR,TE,TC,BX 

PUNCH1,VA,EE,EP,PN,F,PX 

PUNCH 1 ,RPM,PF,PF,POL,BO 

PUNCH! ,GC,DR,PT,T5,T4,WO 

PUNCH 1 ,GF,VT, SNL,TS,CC 

PUNCH! ,BG,FK,TPR, Q!R,QR, HR 

PUNCH! ,TRS,ALR,TG,TE,BX,FR 

PUNCH 1 ,XD,FH,HR1 ,ANRC,DRS,BRH 

PUNCH!, WO,WT, AN, AL,XA,WF 

PUNCH1 , AS,HS, GE,XB,WN 

PUNCH 1 , UY,UZ,EZ,PU,VV,FSC 

PUNCH! ,PV, HD, XRS,BR,RK,TA 

PAUSE 

END 
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C PASS 5A NON-SALIENT WOUND-POLE GENERATOR 
DIMENSION GX(4),YA(4),ED(4) 

1 FORMAT(E1 1.5, El 1.5, El 1.5, El 1.5, El 1.5, El 1.5) 
READ1,VA,EE,EP,PN,F,PX 
READ 1,RPM,PI ,PF,POL,BO 
READ 1,GC,DR,PT,T5,T4,WO 
READ 1 ,GF,VT,SNL,TS,CC 
READ 1 ,BG,FK,TPR,Q1R,QR,HR 
READ1 ,TRS, ALR,TG,TE,BX,FR 
READ 1 ,XD,FH,HR1 , ANRC,DRS,BRH 
READ 1 ,WQ,WT, AN, AL,XA,WF 
READ 1 , AS,HS, GE,XB,WN 
READ 1 ,UY,UZ,EZ,PU,VV,FSC 
READ 1 ,PV,HD,XRS,BR,RK,TA 
BP=(3.14l6*(DR-HR)/PX) 

Y=Q1R— QR+PX 
I F (TPR— 1 .) 890,891 ,890 
891 BP=BP*(Y/QR)-BR 
GO TO 893 

890 BPoBP*(Y/QlR)-(ANRC+1.)*BR 
893 ALRS=ALR*RK 
AP1=BP*ALRS 

AP2= ( DR-2 . *HR-DRS-2 . *BRH ) *ALRS 
PGP=( (Q1R-QR+PX) /Q1R)*TG/PX 

ALRCL=(3.1416*(DRS+(DR-2.*HR-DRS-2.*BRH)))/(4.*PX) 
YA( 1 ) = 1 00. 

YA( 2) =66.66667 
YA(3)=50. 

IF(P0L)31 0,320,31 0 
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320 ED(4)=0 
GX(4)=0 
JA-3 

GO TO 330 
310 YA(4)=100./P0L 
ja®^ 

330 DO 99 K=1,JA 

AA=AT AN ( ( XB / Y A ( K) +S I N ( AN ) ) / AL ) 
BB=AA-AN 

ED(K)=XA*S I N(AA) /YA( K)+COS ( BB) 

99 GX(K)»PGP 
213 IF (POL) 820, 821 ,820 

820 AJ=4 

GO T0822 

821 AJ=3 

822 PUNCH1,GX(1),GX(2),GX(3),GX(4),AJ 
PUNCH 1, ED (1 ) P ED(2) # ED(3),ED(4) 
PUNCH1,VA,EE,EP p PN,F,PX 

PUNCH 1 p RPM p PI p PF p POL 

PUNCH 1 p B0 p GC p DR p PT 

PUNCH1 ,T5,T4,W0,GF,VT,SNL 

PUNCH 1 P TS P CC P BG P FK P TE P BX 

PUNCH1 p FR p XD p FH p ALRS p AP1 p AP2 

PUNCHl f PGP,ALRCL,XRS,HR,WQ,WT 

PUNCH1,AN,XA,WF,AS,HS,GE 

PUNCHl p XB p WN p UY p UZ p EZ p PU 

PUNCH1 p VV P FSC P PV p HD p TA 

PAUSE 

END 
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PASS 6 NON-SALIENT WOUND-POLE GENERATOR 
DIMENSION GX(4),GZ(4),GL(4),FD(4),FDD(4),FB(4),ED(4) 
DIMENSION FI (5) ,EF(4) ,CD(4) , Al (60) 

1 FORMAT (El 1 ,5,E1 1.5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

888 FORMAT(F1 O.O, FI O.O, FI O.O, FI O.O, FI O.O, FI O.O) 

3 FORMAT (9X F12.5.2X F12.5) 

4 FORMAT (F1 1 .3 ,8X F11.3,F11.3,F11.3,F11.3) 

K-1 

823 READ888,AI (K) ,AI (K+1),A! (K+2),AI (K+3),AI (K+4),AI (K+5) 
K-K+6 

I F ( K-59) 823 , 1 99, 1 99 
199 READ1 ,GX(1),GX(2),GX(3),GX(4),AJ 
READ1 , ED (1), ED (2), ED (3), ED (4) 

READ1 ,VA,EE,EP,PN,F,PX 
READ1 ,RPM,PI ,PF,POL 
READ 1 ,BO,GC,DR,PT 
READ 1 ,T5,T4,W0,GF,VT,SNL 
READ 1 ,TS,CC,BG,FK,TE,BX 
READ 1 ,FR,XD,FH, ALRS,AP1 , AP2 
READ 1 ,PGP,ALRCL,XRS,HR,WQ,WT 
READ 1 ,AN,XA,WF, AS,HS,GE 
READ 1 ,XB,WN,UY,UZ,EZ,PU 
READ 1 ,VV,FSC, PV,HD,TA 
LA-1 

DO 950 K-1, 4 

GZ(K)-0 

GL(K)-0 

FD(K)-0 

FDD(K)«0 
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FB (K)=0 
FI (K)*=0 
CD(K)“0 
950 EF(K)=0 
FI (5)=0 
L0AD*=1 . 

NA=1 

K=1 

X«BX 

GO TO 802 

803 AT=UZ*Y 
NA=1 
K=2 
X“TE 

GO TO 802 

804 FT*»HS*Y 
SA=FT+AT 
UX=(SA+FH)*UY 
TF=PGP+UX 
PD-TF/AP1 
NA=31 

K=>3 

X=PD 

GO TO 802 

805 FA=HR*Y 
PDD=TF/AP2 
X-PDD 
NA=3 1 

K-4 
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GO TO 802 

806 FA1=ALRCL*Y 

F N=»S A+F A+F H+F A 1 
SCR=FN/FSC 

PRI NT3,TA,FT,T5, AT,T4,FH,FSC 
221 FORMAT ( 9X FI 2.5/) 

PRI NT221 t SCR 

JA=AJ 

LA«=2 

DO 840 M=1,JA 

GZ (M)=( ( 1 . O+PF ) *FT +AT +( FH*ED ( M) ) )*UX/(FH+SA) 
GL(M)=GX(M)+GZ(M) 

FD(M)=GL(M)/AP1 
K=5 
NA=3 1 
X=FD(M) 

GO TO 802 

807 FX=HR*Y 
K=6 
NA=3 1 

FDD(M)=GL(M)/AP2 

X«=FDD(M) 

GO TO 802 

808 FX1=ALRCL*Y 

FB ( M) - ( 1 . O+PF ) *FT+AT+FX+ED ( M) *FH+FX1 
FI (M+1 )«FB(M)/PT 
EF(M)=FI 04*1 )*FR 
CD(M)*»F I (Mf-D/AS 
840 CONTINUE 
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FI ( 1 )=FN/PT 
CDNL=F I (1)/AS 
EFNL=F I ( 1 )*FK 

PRINT4,UX,GZ(1),GZ(2),GZ(3),GZ(4) 

PRINT4,TF,GL(1),GL(2),GL(3),GL(4) 

PRINT4,PD,FD(1),FD(2),FD(3),FD(4) 

PRINT4,PDD,FDD(1),FDD(2),FDD(3),FDD(4) 

PRINT4,FN,FB(1),FB(2),FB(3),FB(4) 

PRINT4,FI(1),FI(2),FI(3),FI (4), FI (5) 

PRINT4,CDNL,CD(1),CD(2),CD(3),CD(4) 

PRINT4,EFNL,EF(1),EF(2),EF(3),EF(4) 

PUNCH1,FI(1),FI(2),FI(3),FI (4), FI (5) 

punchi,ep,pn,f,px,wq,wt 

PUNCH1 ,BO,GC,POL,HS,PGP 
PUNCH1 ,FK,FR,WO,GF,VT,SNL 
PUNCH 1,TS,CC,BG, API, AP2, HR 
PUNCH1 , ALRCL,TE,BX,FH,XA 
PUNCH 1 ,WF,WN,UY,UZ,EZ,PU 
PUNCH1 , VV,PV,HD 
PAUSE 

802 I F ( A I (NA)-X)830,831,831 
831 NA=NA+3 

835 IF(AI (NA)-X)833, 834,834 

833 NA=NA+2 
GO TO 835 

834 AA=AI (NA) 


BB1=AI (NA-2) 
DC*=AI ( NA+1 ) 
D«*AI (NA— 1 ) 
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XX=(AA-BB1)/(.4343*(L0G(DC)-L0G(D+.0001))) 

Y=AA-XX*.4343*L0G(DC) 

Y=EXP(2.306*(X-Y)/XX) 

GO TO ( 838 , 839 ), LOAD 

838 GO TO (803, 804, 805, 806, 807, 808), K 

839 GO TO (236, 237, 238), K 
830 GO TO ( 836 , 840), LA 
836 PRINT850 

850 FORMAT (17HMACH1NE SATURATED) 

PAUSE 

END 
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C PASS 7 NON-SALIENT WOUND-POLE GENERATOR 

DIMENSIONPR(5),FI (5),PS(5),G(5),PP(5),EX(5),ST(5),VA(5) 
DIMENSION P(5),E(5),PM(5),SP(5) 

1 FORMAT (El 1.5, Eli. 5, El 1.5, Ell. 5, El 1.5, El 1.5) 

4 FORMAT (F11.3.8X F1 1 .3, F1 1 .3, F1 1 .3, F1 1 .3) 

READ 1 ,F I (1),FI (2), FI (3), FI (4), FI (5) 

READ 1,EP,PN,F,PX,WQ,WT 
READ 1 , BO,GC,POL,HS,PGP 
READ 1 ,FK,FR,WO,GF,VT ,SNL 
READ 1 ,TS,CC,BG, API , AP2,HR 
READ 1 ,ALRCL,TE,BX,FH,XA 
READ 1,WF,WN,UY,UZ,EZ,PU 
READ 1 , VV,PV,HD 
178 G ( 1 ) =0 
G(2)=1 
G(3)=1.5 
G(4)«2. 

G(5)«P0L 

PW=PU 

FW=FK 

DO 183 M*=1 ,5 
UA=G(M) 

PR(M)=FI (M)*FI (M)*FW 
I F ( F I ( M) ) 1 98, 1 97 , 1 98 
198 PS(M)=PW*UA*UA 
X=WF+WQ 

GM =(GF*UA)**2. 0+1.0 

ST ( M) = ( 2 . 0* ( 0 . 0027*X A*U A) ** 1 . 8+1 . 0 ) *WT 

VA(M)=VV*UA 
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181 PP(M)=GM *WN 


EX(M)-E7.*PS(M) 

SP(M)=PP(M) +PR(M)+PS(M)+EX(M)+ST(M)+X 
P(M)=(SP(M) /I 000. )+VA(M) 

I F (GM) 185, 184, 185 

184 PM(M)*=0 
E(M)=0 
GO TO 186 

185 PM(M)=(SP(M)/P(M))*. 1 
E(M) = 100.0-PM(M) 

186 FW=FR 
183 PW-PV 

PRINT4, PR(1),PR(2),PR(3),PR(4),PR(5) 

PRINT4, WF,WF,WF,WF,WF 

PRINT4, ST(1),ST(2),ST(3),ST(4),ST(5) 

PRINT4, WQ,WQ,W0_,WQ,WQ 

PRINT4, PP(1),PP(2),PP(3),PP(4),PP(5) 

PRINT4, PS(1),PS(2),PS(3),PS(4),PS(5) 

PRINT4, EX(1),EX(2),EX(3),EX(4),EX(5) 

PRINT4, SP(1),SP(2),SP(3),SP(4),SP(5) 

PR I NT4, VA(1),VA(2),VA(3),VA(4),VA(5) 

PRINT4, P(1),P(2),P(3),P(4),P(5) 
PRINT4,PM(1),PM(2),PH(3),PM(4),PM(5) 

PRINT4, E(1),E(2),E(3),E(4),E(5) 

I F(SNL) 1 91 f 1 91 , 1 90 

190 PUNCH1,FH,TE,BX,UZ,UY,AP1 
PUNCH1,AP2 # ALRCL,HR,PGP,HS,EP 

191 PAUSE 
197 PS(M) = 0 
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GM=0 
ST (M)=0 
x=o 

VA(M)=0 
GO TO 181 
END 
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C PASS 8 NON-SALIENT WOUND-POLE GENERATOR 
DIMENSION Al (60) 

1 FORMAT (El 1 .5, El 1.5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

888 FORMAT(F10.0,F10.0,F10.0,F10.0,F10.0,F10.0) 

K=1 

823 READ888, Al (K),AI (K+1),AI (K+2),AI (K+3),AI (K+4),AI (K+5) 
K=K+6 

IF(K-59)823, 234,234 

234 READ 1,FH,TE,BX,UZ,UY,AP1 
READ 1,AP2,ALRCL,HR,PGP,HS,EP 
L0AD*=2. 

LA*»1 

UB=0.7 

235 UB-UB+0.1 
V=1.732*EP*UB 
FG-FH*UB 
TD-TE*UB 
BC«=BX*UB 

K *»1 

NA=1 

X=BC 

GO TO 802 

236 AT =UZ*Y 
K=2 
NA=1 
X=TD 

GO TO 802 

237 FT*=Y*HS 
SA-FT+AT 
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UX=(FG+SA)*UY 

TF=PGP+UX 

PD=TF /API 

NA=3 1 

K=3 

X=PD 

GO TO 802 

238 FA=HR*Y 
PDD=TF/AP2 
X=PDD 
NA=3 1 

K=4 

GO TO 802 

239 FA1=ALRCL*Y 
FN=SA+FA+FH+FA1 

246 F0RMAT(F12.5,F12.5,F12.5,F12.5,F12.5,F12.5//) 

247 F0RMAT(F12.5,F12.5,F12.5,F12.5,F12.5,F12.5) 
PRINT247,V,FG,TD,FT,BC,AT 

PRI NT246,SA,UX,TF,PD,PDD,FN 
I F (UB-1 .6) 235,245,245 
245 PAUSE 

802 IF(AI (NA)-X)830,831,831 
831 NA-NA+3 

835 IF(AI (NA)-X)833, 834,834 

833 NA=NA+2 
GO TO 835 

834 AA=AI (NA) 

BB1=AI ( NA-2 ) 

DOAI ( NA+1 ) 
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D=AI (NA-1) 

XX=(AA-BB1)/(.4343*(L0G(DC)-L0G(D+.0001))) 
Y= AA-XX*. 43 43 *LOG ( DC ) 

Y=EXP(2.306*(X-Y)/XX) 

GO TO ( 838 ,83 9), LOAD 

838 GO TO (803, 804, 805, 806 ),K 

839 GO TO (236, 237, 238,239), K 
830 GO TO (836, 840), LA 

836 PRINT850 

850 FORMAT (17MMACH I NE SATURATED) 

PAUSE 


END 
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SECTION JA 


ROTATING- COIL, LUNDE LL- TYPE 
A-C GENERATOR COMPUTER PROGRAM 
AND TEST DATA 





AUNG COIL LuNDELL 


COMPUTER DESIGN 


(5o) f 


( 6 ) 


[GENERATOR KVA 


(line volts 


PHASE VOLTS 


PHASES 


| FREQUENCY 


POLES 


I PHASE CURRENT 


! POWER FACTOR 


ADJ. FACTOR 


OPTIONAL LOAD POINT 


STATOR I.D. 


STATOR O.D. 


GROSS CORE LENGTH 


NO. OF DUCTS 


WIDTH OF DUCT 


STACKING FACTOR (STATOR) 


WATTS/LB. 


DENSITY 


TYPE OF SLOT 



(INPUT) 

DESIGN NO<1) 


- 4-6S 



(22) |b] 


(22) I K] 


h 2 


(22) |h 3 


( 22 ) 



FUND/MAX OF FLD FLUX 


WINDING CONSTANT 


POLE CONSTANT 


END EXTENSION ONE TURN 


DEMAGNETIZATION FACTOR 


CROSS MAGNETIZING FACTOR 


POLE EMBRACE 


WIDTH OF POLE (NARROW END) 


WIDTH OF POLE (WIDE END) 


POLE THICKNESS (NARROW END) 


POLE THICKNESS (WIDE END) 


POLE LENGTH 


4-, ROTOR DIAMETER 


WEIGHT OF ROTOR IRON 


POLE FACE LOSS FACTOR 


FLUX PLATE THICKNESS 


FLUX PLATE DIAMETER 


SHAFT O.D.(FLUX CARRYING PORT.) 


/ / 2>5 [SHAFT LENGTH(FLUX CARRYING PORT) 


o I PERM OF LEAKAGE PATH 1 


PERM OF LEAKAGE PATH 2 


PERM OF LEAKAGE PATH 3 


PERM OF LEAKAGE PATH 4 


PERM OF LEAKAGE PATH 5 


PERM OF LEAKAGE PATH 7 


OUTSIDE DIAMETER OF FLD COIL 


LENGTH OF FIELD COIL 


NO. OF FIELD TURNS/COIL 


MEAN LENGTH OF FLO. TURN 


Ol p LD. COND. DIA. OR WIDTH 


FLD. COND. THICKNESS 


FLD. TEMP IN ° C 


(71) |C, 


(72) |C W 



(77) Of 


1(76) fe P1 


(76) 


I (76) I tp j 


(76) t p2 


(76) 


I (Ho) 


(157) I ( -) 


(187) (Kl ) 


(78) (tip ) 


(78) | («-f p ) 


(78) (o.) 


(78) <?*) 


(80) P] 


(81) P 2 


(82) P 3 


(83) 


I (84) 


(86) |p 7 


(78) d oc 


(76) 


046) Ini 


047) 


(148) 



TYPE OF COIL 


| CONDUCTORS/SLOT 


SLOTS SPANNED 


PARALLEL CIRCUITS 


STRAND DIA. OR WIDTH 


STRANDS/CONDUCTOR IN DEPTH 


ST RAN DS/COND UCTO R 


STATOR STRAND T'KNS. 


DIA. OF PIN 


RESISTIVITY OF FIELD COND e 20° 


NO LOAD SAT. 


FRICTION & WINDAGE 


SPECIAL PERMEANCE 


STATOR LAM MATERIAL 


POLE MATERIAL 


(150) I Xf °C 


TP f 


(87) 


083) I (F&W) 





T738) 

M42o) 


COIL EXT. STR. PORT 


UNINS. STRD. HT. 


DIST. BTWN. C L OF STD. 


PHASE BELT ANGLE 


STATOR SLOT SKEW 


DESIGNER 


J7 h 


MATERIAL I I FIELD | PERMEANCE Li lcT ~ J 1 1 1 1 * 1 1 1 1 1 

| | I perm *ANCE PHAFT POLE AND ROTOR I CONSTANTS 






































































































































[£i) Open Slots 


(b) Constant Slot Width 
— r b 0 r*- 


type 1 

(Type 5 is an open 
slot with 1 conductc 
per slot) 



TYPE 


(C) Constont Tooth Width 



(d) Round Slots 
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SPECIAL LEAKAGE PERMEANCE - For machines 
having a section of the pole that is approxi- 
mately a full pole-pitch wide, an additional 
leakage permeance must be added to the 
slot and end-turn leakage permeances. 

This permeance is that of the leakage path 
from one pole into a tooth top and from tooth 
top back into the adjacent pole. The leakage 
is similar to Zig Zag leakage and by in- 
creasing the stator leakage reactance, can 
reduce the output of the generator significantly. 

This same leakage can be used to purposely 
limit the output of the generator and make it 
current limited. The presence of this ad- 
ditional leakage can be good or bad depending 
upon what is wanted from the generator. The 
important thing is for the designer to be aware 
that it is there. 

Li many cases, the designer should estimate 
the specific permeances A z since the pole base 
will be more or less than a full pole pitch wide 
and the following formula will not suffice. 


T f. -> 



it 2t 
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STATOR 


ROTATING COIL LUNDELL 


SUMMARY OF DESIGN CALCULATIONS (OUTPUT) 




■it- 


b< 


(17) 


MODEL NO. 

jSU 


E WO 


(24) (h c ) 


(26) (r.) 


(27) <7^1/3) 


(42) (K, k ) 


(43) <K d ) 


(44) 

(45) 


(K p ) 

( 1 % e) 


(46) (o c ) 


(47) (S , ) 


(49) (g t ) 


(53) 


<* P h> 


(54) <R ph ) 


(55) (EF^, 


(56) (FF Ut ) 


(6?) (A i ) 


- I AxJl. 


(65) ( — ) 


( 66 ) 

(41) 


( - ) 


.ITjlL 


(157 ) ( 
(14 5) 


(V, > 


(153) (o c f) 


(154) (R f ) 


(155) ( R f ) 


056) ( - ) 


(00) <Pj) 


(03) (P 4 ) 


kai) 

( 02 ) 


(P2) 


(P3> 


SOLID CORE LENGTH 


DE5IGN NO. 


DEPTH BELOW SLOT 


SLOT PITCH 


SLOT PITCH 1/3 DIST. UP 


SKEW FACTOR 
DIST. FACTOR 


PITCH FACTOR 


EFF. CONDUCTORS 


COND. AREA 


CURRENT DENSITY (ST A.) 


1/2 MEAN TURN L ENGTH 


-S2.QQQ 




41893 


-Ji5Q25 


1.00000 


1 .00000 
.99999 


7.51.99999 . 


.00202 


I2340.0000Q' 


C OLD SEA. RES. » 20° C 
HOT 5TA. RES. ■* X °C 


M 11Q 


EDDY FACTOR TOP 


EDDY FACTOR BOT 


STATOR COND. PERM. 


END PERM. 


WT. OF STA COPPER 


WT. OF STA. IRON 


POLE PITCH 


WT. OF ROTOR IRON 


PERIPHERAL SPEED 


FLD COND. AREA 


.05584 


073 60 

rih 


Ljffi 60 


JL.25i5.81 


M2 256 


J-.j)6 z 9.35| 


^8632 


.4 068a 

835 . 4500 " 


2.0207 


-12fi.9a24a 


2XLSL251 


1 .00 06 0 


16.1 21 00 


9.22020 


1.27200 


3-23610 


J L 25660 


JQQQQO 


2494.43030 


COLD FLD RES 


HOT FLD RES." 


?0< 

x r *c 


WT. OF FLD COPPER 


PERM OF LEAKAGE PATH 1 


PERM OF LFAKACE PATH 2 


PERM 0 1 LEAKAGE PATH 3 


K84) (P 5 ) 


(85) (P 7 ; 


Hi 80) ( F ) 


1(181) (S CR) 


PERM OF LEAKAGE PATH 4 


PERM OF LEAKAGE PATH 5 


PERM OF LEAKAGE PATH 7 


SHORT Cl R Nt 


SHORT AIR RA TIO 


sm qi 






-uaasso 




.IJjJJM 










J^L13lJL0QQQ, 


PERCENT LOAD 


(7/ 1 (1 00a) LEAKAGE FLUX 
(7 P T ) ( 3 02a ) T0T aT7l UX/POLE 
(B p ) M03a) POLE DENSITY 

B 


1 1 1 2L SMAFT D enVity 

(127) T OTAL“m 


( *fnl ) ( > 2 / 0 ) Fir: LD AMPERES 

( Sf ) { 17 7c ) CUR. DEN. FLD. 

Efr.l ? FIELD VOLTS 

-T^r) dfi r ') STA CORE LOSS 


(W tn l > n 84) 
|2 R s . Q94 ) 


STA TOOTH LOSS 
STATOR CU LOSS 


- ) (195) EDDY LOSS 


( w pnl ) 086) POL E FACE LOSS 


/ <2 R, ) f 182) f IE LD COIL LOSS 
F&W) (183) FK w LOSS 


1 - ) (19 6) TOTAL LOSSES 
( -)(-) PERCENT EFF. 


-21.24 m 

i 40 . 56 2 2 C 


222. 2 3046 

88.85927 




217.84193 


191.7 0092 
T66.96566 


,15.202/1 


2 . 52160 


^.Qfl. 408 


JL4.L9M 


-43 0 ^-9,97.7 


CARTER COEFFICIENT 


EFFECTIVE AIR GAP 


FUND/MAX OF FLD FLUX 


WINDING CONST. 


POLE CONST. 


END. EXT. ONE TURN 


DEMAGNETIZING FACTOR 


CROSS MAGNETIZING FACTOR 


AMP COND IN 


(67) (K,) 


(69) ( fl .) 


(71) (Ci ) 


(72) (C w ) 


(73) 


(48) 


(C p ) 
(L E ) 


(74) (C M ) 


(75) 


< C q ) 


(128) (A) 


REACTANCE FACTOR 


LEAKAGE REACTANCE 


REACTANCES OF 
ARMATURE REACTION 


SYN REACT DIRECT AXIS 


SYN REACT QUAD AXIS 


FIELD LEAKAGE REACT 


FIELD SELF INDUCTANCE 


UNSAT. TRANS. REACT 


SAT. TRANS. REACT 


NEG SEQUENCE REACT 


ZERO SEQUENCE REACT 


OPEN CIR. TIME CONST. 


ARM TIME CONST. 


TRANS. TOME CONST. 


SUB TRAN TIME CONST. 


J2.2.5&M, 


-2Z«255i]fl 




JL 




TOTAL FLUX 


FLUX PER POLE 


GAP DENSITY (MAIN) 


TOOTH DENSITY 


33 .6337£ C0 “ E density 


1 3 5 9? 1 T00TH AMPERE TURNS 


CORE AMPERE TURNS 


1 92 . 7 BOO Q 0AP AMPERE TURNS (^M A IN ) 


029) (X ) 


(130) (Xg) 


031) (X od ) 


032) (X pq) 


(133) (Xh ) 


(134) (X c 


(16°) |X jj 
±±! 


(161) 


(166) (X'dJ 


(167) (X’d ) 
(170) (X 2 ) 


(172) 


(Xo ) 


(176 ) 

(177) 


JJjA. 

(To) 


078) (T' d ) 


(179) <T M d) 


(8 9) ( ■ r) 


(92) ( ' ) 


(95) 

(91) 


(B a 


(Br ) 


(94) (B c ) 


lvx 

(98)~ 


1 96) 


JFt_J_ 

(F c ) 

(F oT 


1 21 

h* O 
O 



— l 

0 


-J - 

1 00 

L_ 

150 

200 

L 

O PT|ON A L 


20.454 

( / ) (197a) 

. ZX« 56 3 . 

.000 

.000 

.QQQ 


— 56^15- - 

W'Prl) (213o) 

124. 950 

.000 

.0(10 

non 

— 25^.997 

(B p |) (213b) 

57.477 . 


.000 

-A-SZSZSZ, 

_ooo 

— 

52-jim 

<B.h|) (232) 

114.800 


. non 

000 



--JUGUi-Q 

(Ffi) (236) 

_2&3S.JlQIL 

L .non 

. non 

* 

000 



^635 

(Iffl ) (237) 

4 t 060 . 

MH^HH 

non 

*- -A wuw 

non 

--- 

674,780 

( ) (239) 

-3-99-U6U0 _ 

HHMSISBHI 

.000 

iZA-L 

ono 

2 .423 

(iffl ) (238) 

-2QjiQZ 

.000 

.000 

non 




<w c ) (185) 

-Z.835 

2 . 83 5 

2-835 

. SJ. V-V- 

2 83 5 

___ J 



(W tf | ) <24?) 

10.83 0 

.odd 

.000 1 

• 000 

.ono . 

td 2 R.) (245) 

W 1 1 

.000 

.000 

, 000 



HI 

< - ) (246) 


-non 

i-V v 

.non 

non 



<Vl> (243) 

■Enn 

-000 

— 4 UL/U 

.000 

. 000 


1 . ,540 

(|2 R f| ) (241) 

8ZJ164 

-000 

- - ^ v/y v/ 

_nnn 

. 000 

— 

HEWfffiH 

RZonESH 

12 .840 

1 2 ,«4n 


1 ? RLn 


mmmm\ 

( - ) (247) 


.000 

.000 

000 


.non 1 

( - ) (251) 

wmamsmi 

.000 

.000 

M00 
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ROTATING COIL LUNDELL 
NO LOAD SATURATION OUTPUT SHEET 





\ITEMS 

% \ 

VOLTS \ 

(3) (E) 

VOLTS 

(9i) e, 

STA. TOOTH DENSITY 

(97) F t 

STATOR TOOTH N.l. 

(94) B c 

STA. CORE DENSITY 

(98) F c 
STA. CORE N.l. 

(96) F 9 
GAP NJ. 

(100o) '/'£ 

LEAKAGE FLUX 

<102o) <l> p , 
TOTAL FLUX/POLE 

(103a) B p 
POLE DENSITY 

(104 a) F p 
POLE N.l. 

(113) B #h 
SHAFT DENSITY 

(127) F n | 
TOTAL N.l. 

80% 

12.00000 

16.35496 

37.48000 

20.79622 

1.00402 

45.20919 

26.90640 

6.43277 

.53 995 
40.39412 

154.22400 

330.83579 

m 

13.50000 

18.40214 

42 . 16500 
23 .39622 

1.16 037 
50.86135 

3 0.26970 
7.09223 

.59906 

45.44377 

173.50200 

371.72786 

1 00% 

15.00000 

20.45414 

46.85000 
25.997 02 

1 .35937 
56.51526 

33.63300 

7.81953 

.66465 

50.49544 

192.78000 

412.90751 

1 10% 

16.50000 

22.51360 

51.53500 

28.59906 

1.62574 

62.17188 

36.99630 

8.81807 

.73742 

55.55094 

212.05800 

454.83762 

120 % 


56.22000 

31.20209 

1.94432 

67.83064 

40.3 5 960 
10.31000 

.81816 

60.61062 

23 1 .33600 
497.99724 

■ 

19.50000 

26.65138 

60.90500 

33.80629 

2.32532 

73.49195 

r — ~ — — 

43.72290 

12.05521 

.90774 

65.67389 

250.61400 

542.36293 

B 

21.00000 

28.73297 

65.59000 

36.41202 

2.78098 

79.15658 

47.08620 
14.097 1 2 

1.02263 

70.74173 

269.89200 

587.73036 

1 5 0% 

22.50000 

30.82528 

70.27500 

39.01954 

3.32593 

84.82510 

50.44950 

19.11187 

1 . 16281 
75.82587 

289. 17000 
639.51731 

1 60 % 

24.00000 

32.96509 



74.96 000 
4 1 .63498 

4.31205 

90.51083 



53.81280 , 
26.61487 

J 

1 .32221 
80.93742 

308.44800 
6 97.96020 
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1 IP H7 

PAKA, L7 

tins no 

TAT ! NT. 

COIL LUNi 

TELL 



1 .04 

15. 8.7 

- * • 

200 . 

12. 

2000. 

50. 

.95 

1.05 

.8 

4.8 (>.(>3 

1 . 

0 . 

0. 

.92 

5. 

77.2 

3. 

.12 

.16 .16 

.25 

.205 

.02 

.5 

0. 

0. 

.55 

.03 

.001 36. 

1 . 

0 . 

14. 

-> 

;> . 


.0508 

1 . 

1. 

0. . 1 

• 

.0508 

.0508 

i 60. 

0 . 

1 00. 

.694 

.018 

0 . 0. 

0 . 

0. 

0 . 

0 .' 

.64 

.45 

1.15 

.20 

.40 1.15 

4.764 

0. 

f * 

.5 

3.2 

? 

1.25 

0. 

0 . 0 . 

0. 

0. 

13.1 

3.9 

1.25 

650. 

8.6 

. 036 

0 . 100 . 

.694 

1 . 

0 . 

38.3 





SATURATION CURVE ( 

STATOR 

i.ATER! AL 

) 



132. 

0. 

0. 

18. 


1. 

45. 



2.3 

71. 

6.2 

80. 


10.5 

87. 



18.5 

99. 

82. 

110 

• 

220. 

132. 



1000. 










SATURATION CURVE ( 

POLE MATERIAL ) 




140. 

0 . 

1.4 

20. 


3.3 

40. 



5.1 

6 0. 

7.2 

80. 


12.5 

100. 



40. 

120. 

300 . 

140 


1000. 
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SATURATION CURVE ( SHAFT MATERIAL ) 


140. 

0 . 

1.6 

3.3 

3 0. 

4.2 

9.2 

80. 

12.5 

20. 

100. 

40. 

160. 

126. 

500. 


10. 

2.3 

20. 

60. 

7.3 

70. 

85. 

15. 

90. 

108. 

100. 

112 

140. 

1000. 



<Lr3 
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ALL INPUT PARAMETERS ARE IN FORMAT F7.0 (FIG. 1) 


1. 

0 0 0 0 0 0 0|0 

I 1 1 t S U| 

1111111 


22222222 

33333333 

44444444 

55555555 

6666(866 

17777777 

11114(86 


9 9 S 9 9 9 919 

I ? J A 5 I >r 


10 . 

o o o o o o|c 

I 9 10 II 12 IJ 

1 1 1 n nil 


2 2 2 2 2 2 2 

3 3 3 3 3 3 3 
4444444 

5 5 5 5 5 5 5 

6 6 6 6 6 6 6 

7 7 7 7 7 7 7 

8 8 8 8 B ( ( 


9 3 9 9 9 919 
j io n i? u 14 
son 


100. 1.001 

0 0 0 0 0 ole 0 0 0 o o o|o 

U II It JO 2f27 13 14 75 Jt 37 

11111 


111 


111111 
22222222222222 

33333333333333 

44444444444444 

55555555555555 

66666666666666 

77777777777777 

88888188888(88 


.1 

0 0 0 0 0 o|c 

io 3i 3 ? 33 1 * :: 

11111 


9 ? 9 9 9 19 9 9 9 9 9 9|9 

15 lb 17 II 1$ *7 ?3 74 75 ?E 21 21 


0 U 0 0 0 Qfo 

5 pt 37 39 39 4C 41 

1111 


11 1 


2 2 2 2 2 2 

3333333 

4 4 4 4 4 4 4 

5 5 5 5 5 5 5 

6 6 6 6 6 6 6 

7 7 7 7 7 7 7 

8 8 8 8 8 8 8 


.01 


0 D 0 0 0 0|0 

42j4J 44 45 4C 41 41 

1 1 1 1 1 1 


11 


[2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 

4 4 4 4 4 4 4 

5 5 5 5 5 5 5 
8 6 6 6 6 6|6 
7 7 7 7 7 7 


9 9 9 3 3 3|3 5 9 9 9 9 9|9 

30 31 12 3a 


37 31 39 40 <1 434 


10 . 


0 0 0 8 0 0 G 

51 52 SJ 54 55 Up 

1111111 


2 2 2 2 2 2|2 
333333 
4 4 4 4 4 4 4 
5555555 
6 6 6 6 6 6 6 
77777777 


8 8 8 8 8 8 8 8 8 8 E 8 818 


9999999 

:3 44 45 46 4 1 40 4JBO 


1.0 


2222222 

33333333 

4 4 4 4 4 4 4 

5 5 5 5 5 5 5 

6 6 6 6 6 6 6 
7 7 7 7 7 7 7 
88(8888 


999999B 

51 5J 5J 54 55 5C.V 


1000. 

0 0 0 0 0 
IJSt 59 60 61 17 

1 1 1 1 1 1 1| 


3 0000000 b 

t4 (5 « II 66 6t n|l 
1111111 


9 9 9 9 3 »9 

5£ 51 60 61 6J 611 


10 . 


2 2 2 2 2 2|2 2 2 2 2 2 2|2 

3 3 3 3 3 3|3 3 3 3 3 3 3|3 

4 4 4 4 4 4|4 4 4 4 4 4 4|4 
55555 5(555555 5(5 
6 6 6 6 6 6|6 6 6 6 8 6 6|8 

7 7 7 7 7 7|7 7 7 7 7 7 7|7 

8 8 8 8 8 8j8 


9 9 9 9 9 9(9 

[M 6S 66 k 4* 6a ?of 


000000000 
|7! 77 73 14 15 76 n II IS 60 

1111111111 


222222222 

333333333 

444444444 

555555555 

606666686 

777777777 


399999999 

[II 72 73 74 T5 76 77 76 n t j 


FIG. 1 


ALL SATURATION CURVE VALUES ARE IN FORMAT FI 0.0 (FIG. 2) 
(ALL SATURATION CURVES MUST HAVE 5 CARDS) 


555555555555555555555555555555 

(66606666666666666666666666666 


.01 


100 . 10 . 1 . 100 . 10 . 

11111111111111 11111111 11111111 1111 m ill ill imm I nm in 1l1nm n m minii 
22222222222222222222222222222222222222222222222222222222222222222222222222222222 
33333333333333333333333333333333333333333333333333333333333333333333333333333333 
44444444444444444444444444444444444444444444444444444444444444444444444444444444 

55555555555555555555555555555555555555555555555555 
66666666666666666666666666666666666666666666666666 
77777777777777777777777777777777777777777777777777777777777777777777777777777777 
88888888888888888888888888888888888888888888888888888888888888888888888888888888 

FIG. 2 
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COMPUTER PROCEDURE FOR 
ROTATING COIL LUNDELL DESIGN CALCULATIONS 


1. Clear core (no switch control). 

2. Insert output Form #1 into typewriter, set margin for correct 
output, and set typewriter for single space. 

3. Load pass #1 followed by input parameters (output punch cards). 

4. Reset and load pass #2 followed by output from pass #1 (output 
punched cards). 

5. Reset and load pass #3 followed by output from pass #2 (output 
punched cards). 

6. Reset and load pass #4 followed by output from pass #3 (output 
printed plus punched cards). 

7. Reset and load pass #5 followed by output from pass #4 (output 
punched cards). 

8. Reset and load pass #6 followed by saturation curve values * and 
output from pass #5 (output printed plus punched cards). 

9. Reset and load pass #7 followed by output from pass #6 (output 
printed plus punched cards if no load saturation curve required). 


* Saturation curve values are loaded in order shown on Input Form 

# 1 . 
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If there is punch card output from pass #7, a no load saturation 
curve is required. Insert output Form #2 into typewriter and 
reset margin. Load pass #8 followed by saturation curve values* 
and output from pass #7 (output printed). 


NOTE: Pages JA-13 and JA-14 are nonexistent. 



INSIDE- COIL, ROTATING- COIL, LUNDELL, A. C. GENERATOR 


Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


A 

a 

(128) 

A 

A 

(46) 

a c 

AC 

(79) 

a P 

AP 


A 

_b 

(20) 

B 

BK 

(22) 

b o 

BO 

(94) 

B c , 

BC1 

(95) 

B g , 

BG1 

(76) 

b pl 

BP1 

(76) 

b p2 

BP2 

(103) 

B P 

BP 

(113b) 

B pl 

BPL 

(22) 

b s 

BS 

(113) 

b sh 

BSH 

(232) 

b shl 

b shl 

(57a) 

b t 1/3 

SM 

(91) 

b t , 

BT1 

(57) 

b tm 

TM 


/ 3 - // 

P**WWNB PAGE BLANK NOT FH.MPL 



Calculation 

Electrical 

Fortran 

Number 

Symbol 

Symbol 

(15) 

b v 

BV 





(32) 

c 

c 

(71) 

C 1 

Cl 

(74) 

C M 

CM 

(73) 

C P 

CP 

(75) 

°q 

CQ 

(72) 

c 

cw 

D, d 

(12) 

D 

DU 

(Hi 

d 

DI 

(35) 

d b 

DB 

(78) 

d fp 

DFP 

(78) 

^oc 

DC1 

(11a) 

d r 

DR 

(78) 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(3) 

E, 

E 

e 

EE 

(55) 

ef top 

ET 

(56) 

ef bot 

EB 

(238) 

e ffl 

EPFL 

(127b) 

e fnl 

EPNL 

(4) 

e ph 

EP 

(5a) 

f 

f 

F 

(98) 

F c 

FC 

(236) 

f fl 

FFL 

(96) 

F 

g 

FG 

(127) 

f nl 

FNL 

(104) 

F P 

FP 

(98a) 

F s 

FS ■ 

(180) 

F sc 

FSC 

(233) 

f shl 

FSHL 

(97) 

f t 

FT 

(183) 

F & w 

WF 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


G 


(59) 

g 

GC 

(69) 


GE 


2L 

_h 

(24) 

h 

c 

HC 

(38) 

h ST 

SD 

(39) 

h ST 

SH 



i 

(237) 

t ffl 

AIFL 

(127a) 

t fnl 

AINL 

(3) 

t ph 

PI 

(182) 

I 2 R p 

fel 

(241) 

I 2 R fl 

FCUL 

(194) 

i 2 r 

PS 

(245) 

i 2 r u 

SCUL 


K, 

, k 

(19) 

k 

WL 

(9a) 

K c 

CK 

(43) 

K d 

DF 
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Calculation 
. Number 

Electrical 

Symbol 

Fortran 

Symbol 

(63) 

K e 

EK 

(16) 

Ki 

SF 

(44) 

K 

P 

CF 

(67) 

K s 

CC 

(42) 

k sk 

FS 

(2) 

k va 

VA 

(61) 

K x 

FF 


hi. 


(13) 

1 

CL 

(76) 

>o 

O 

o 

ALCO 

(48) 

l e 

EL 

(36) 

^ e2 

CE 

(161) 

l F 

SI 

(76) 

£ p 

ALP 

(17) 


SS 

(78) 

^ SH 

ALSH 

(49) 

^ t 

HM 

(147) 


FE 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


_M, 

, m 

(5) 

m 

PN 


N : 

, n 

(146) 

n f 

PT 

(45) 

n e 

EC 

(30) 

n s 

SC 

(34) 

n st 

SN 

(34a) 

t 

n st 

SN1 

(14) 

n v 

HV 


F 

jJP 

(6) 

P 

PX 

(9) 

PF 

PF 

(30) 

P 1 

PI 

(81) 

?2 

P2 

(82) 

P 3 

P3 

(83) 

P 4 

P4 

(84) 

P 5 

P5 

(86) 

P 7 

P7 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 



Q, 

q 

(23) 

Q 


QQ 

(25) 

q 


QN 



R, 

r 

(154) 

R f(cold) 


FK 

(155) 

Rf(hot) 


FR 

(7) 

RPM 


RPM 

(53) 

R SPH(cold) 

RG 

(54) 

^SPHdiot) 

RP 



s, 

s 

(181) 

SCR 


SCR 

(127c) 

S F 


CD 

(47) 

S S 


S 



T, 

t 

(177) 

T a 


TA 

(178) 

T d 


T5 

(176) 

T do 


TC 

(178a) 

ft 

T d 


T4 

(78) 

tfp 


TFP 

(76) 

l pl 


TP1 

(76) 

CM 


TP2 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


V 

> v 

(145) 

V r 

VR 


W, w 

(185) 

W C 

WQ 

(186) 

W NPL 

WN 

(243) 

W PFL 

WNL 

(242) 

W TFL 

WTFL 

(184) 

W TNL 

WT 


x. 

, x 

(129) 

X 

XR 

(131) 

X ad 

XD 

(132) 

X aq 

XQ 

(167) 

x d 

xs 

(133) 

x a 

XA 

(166) 

X du 

XU 

(160) 

X F 

XF 

(150) 

u 

o 

<<-i 

X 

T2 

(130) 

X JL 

XL 


(134) X q XB 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(50) 

x s °C 

TI 

(170) 

X 2 

XN 

(172) 

X o 

XO 


Y, 

y_ 

(31) 

y 

YY 


(207) 

^7L 

H.7 

(92) 

0 P 

FQ 

(213) 

^ PL 

FQL 

(88) 

0 T 

TG 



Y 

(41) 

Tp 

TP 

(26) 

r s 

TS 

(40) 

Tsk 

SK 

(27) 

Ts 1/3 

TT 



A 

(64) 

a e 

EW 

(160c) 

Af 

FL 
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Calculation Electrical 

Number Symbol 


(151) 

(152) 
(51) 




A 

^ (hot) 




Fortran 

Symbol 


RR 


RS 
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C PASS 1 ROTATING COIL LUNDELL 

1 FORMAT (El 1.5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

2 FORMAT (F7.0,F7.0,F7.0,F7.0,F7.0,F7.0 P F7.0,F7.0,F7.0,F7.0) 

3 FORMAT ( 9X F12.5.2X F12.5) 

7 READ2,VA,EE,EP,PtJ,F,PX,RPM,PI ,PF,CK 
READ2,POL,DI ,DU,CL,HV,BV,SF,WL,BK,ZZ 
READ2,B0,B1 ,B2,B3,BS,HO,HX,HY,HZ,HS 
READ2,HT,HW,QQ,W,RF,SC,YY,C,DW,SU 
READ2,SN1,DW1,DB,CE,SH,SD,PBA,SK,T1,RS 
READ2,GC,C1,CW,CP,EL,CM,CQ,PE,BP1,BP2 
READ2,TP1,TP2,ALP,DR,V/R,D1,TFP,DFP,DS1,ALSH 
READ2,P1,P2,P3,P4,P5,P7,DC1,ALC0,PT,FE 
READ2 f RD,RT,T2,RR,SNL,WF,ALZ 
SS=SF*(CL-HV*BV) 

HC=(DU— D I -2 .0*HS ) *0. 5 
QN=QQ/(PX*PN) 

TS-3. 142*DI /QQ 
I F(ZZ-4. 0)9,10,9 
9 TT*=(0.667*HS+D I )*3 . 142/QQ 
GO TO 11 

10 TT=3 . 1416*(DI+2.*H0+1 .32*BS)/Q0 

11 I F (ZZ-1 . 0)12, 12,13 

12 BO=BS 

CC=(5.*GC+8S)*TS/ ( (5.’ V GC+BS)*TS-BS*BS) 

GO TO 14 

13 QC=(4.44*GC+0.75*B0)*TS 
CC=QC/(QC-BO*BO) 

14 CS-YY/(PN*QN) 

TP«3. 1416*0 1 /PX 
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1 F (SK) 18,18,19 

18 FS=1 .0 
GO TO 20 

19 FS=SIN(1.571*SK/TP)*TP/(1.571*SK) 

20 IF(PBA-60.)21 ,21 ,22 

21 D= 1 . 0 

GO TO 95 

22 D=2 , 0 
95 I =QN 

U= I 

I F ( QN-U ) 23 , 23 , 24 

24 U=PX*PN 
XX=U 
N=U 

DO 25 K= 1 , N 
Z=U/XX 
I =Z 
Z1 = l 

IF ( Z— Z 1 ) 26, 26, 25 

26 ZY*=QQ/XX 
I =ZY 

Z 1= I 

IF(ZY-Z1)27,27,25 

25 XX-XX-1. 

23 ZY-QN 

27 DF-SI N(.5236*D)/(ZY*D*SIN(.5236/ZY)) 
CF-SI N(YY*1.571/(PN*QN)) 

ec=qq*sc*cf*fs/c 

GE«CC*GC 
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IF(C1)29,28,29 

28 C1=0.649*L0G(PE)+1.359 

29 I F (CW)30,3 0,3 1 

30 CW=0.707*EE*C1*DF/(EP*PN) 

31 IF(CP)32,32,33 

32 CP=PE*(L0G(GC/TP)*.037B+1.191) 

33 !F(EL)34,34,42 

34 !F(RF)35,35,41 

35 IF(PX-2.o)36,36,37 

36 IM .3 

GO TO 40 

37 IF(PX-4.0)38,38,39 

38 U=1 .5 

GO TO 40 

39 U-1.7 

40 EL»3. l42*U*YY*(DI+HS)/QQ+0.5 
GO TO 42 

41 EL«2.0*CE+3. 142*(0.5*HX+DB)+YY*TS*TS/SQRT(TS*TS-BS*BS) 

42 AA-1.571*PE 
AB«3. 142*PE 
IF(CM)43,43,44 

43 CM=(AB+SIN(AB))/(SIN(AA)*4.) 

44 IF(CQ)45, 45,46 

45 CQ=(0. 5*C0S( AA)+AB-S I N(AB) ) / (4.0*S I N(AA) ) 

46 RB-(T 1+234. 5)*0. 003 94*RS 

PRINT3,SS,CC,HC,GE,TS,C1,TT,CW,FS,CP,DF,EL,CF,CH,EC,CQ 

PUNCH 1 ,VA, EE,EP, PN,F,PX 
PUNCH1,RPM,PI ,PF,CK,P0L,DI 
PUNCH 1 ,DU,CL,SS,HC,SF,QN 
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PUICH1 ,WL,BK,Z7.,B0,B1 ,B2 
PUNCH 1 ,B3,BS,H0,HX,HY,HZ 
PUNCHl,Hr>,HT,HW,()Q,W,FU' 

PUNCH 1 , SC,YY p C,TS,SN,l)B 
PUNCH1 ,CE,SH,SD,TT,SK,RB 
PUNCH 1, ALC(),TP,D1,fE,RD,RT 
PUNCH 1 ,T2 P RR,SNL ,WF,PE,5N1 
PUNCH 1 ,DW1 ,BP1,BP2,TP1,TP2,ALP 
PUNCH 1 ,DR,WR,TFP,DFP t D51 , ALSH 
PUNCH 1 ,P1 ,PZ,P5,P4,P5,P7 
PUNCH 1,RS,GC,PT,C1,CW,CP 
PUNCH 1 ,EL,CM,CO,[)W,CC,PBA 
PUNCH 1,GE,CS,CF # FS,EC,DF 
PUNCH1 ,DC1 ,ALZ 
PAUSE 
END 
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c 


PASS 2 ROTATING COIL LUNDELL 


1 FORMAT (El 1.5, Ell. 5, El 1.5, El 1.5, El 1.5, El 1.5) 
DIMENSION DA(8),DX(b),DY(8),D7. (8) 

READ 1 , VA, EE, EP, PN,F,PX 
READ 1 ,RPM, PI , PF ,CK, POL,D I 
READ1,DU,CL,SS,HC,SF,QN 
READ1,WL,BK,ZZ,BO,B1,B2 
READ1 ,B3 ,BS,HO,HX,HY,HZ 
READ1 ,HS,HT,HW,QQ,W,RF 
READ1,SC,YY,C,TS,SN,DB 
READ1 ,CE,5H,SD,TT,SK,RB 
READ1 , ALCO,TP,D1 ,FE,RD,RT 
READ1 ,T2,RR,SNL,WF,PE,SN1 
READ1 ,DW1,BP1,BP2,TP1,TP2,ALP 
READ1,DR,WR,TFP,UFP,DS1,ALSH 
READ1 ,P1 ,P2,P3,P4,P5,P7 
READ1,RS,GC,PT,C1,CW,CP 
READ 1,EL,CM,CQ,D\f/,CC,PBA 
READ1 ,GE,CS,CF,FS,EC,DF 
READ1 ,DC1,ALZ 
DT=DW1 

I F(ZZ-3 . 0)49, 50,51 

49 SM-TT-BS 
GO TO 53 

50 SM=(3 . 1416*(DI+2.*HS)/QQ)-B3 
GO TO 53 

51 IF(ZZ-4. 0)50, 52,49 

52 SM=TT-.94*BS 

53 HM*=CL+EL 
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IF(DT) 61,01,02 

61 AOO. 785*DW*DW*SI41 
GO TO 72 

62 ZY=0, 0 
DA(1)»0.05 
DA( 2) =0. 072 
DA(3 )=0. 125 
DA(4)=0. 165 
DA(5)-0.225 
DA(6)=0.43B 
DA(7)«0.688 
DA(8)=1 . 5 

DX( 1 ) =0.000 124 
DX ( 2 ) = 0. 0002 1 
D X ( 3 )=0.U002 1 
DX(4)=0. 00084 
DX(5)=0. 00189 
DX(6)=0. 00189 
DY(1)=0. 000124 
DY (2) = 0.0001 24 
DY(3)=0. 00084 
DY(4)=0. 00084 
DY(5)=0. 00189 
DY(6)=0. 00335 
DY(7)=0. 00754 
DY(8) = 0. 03020 
DZ(1)=0. 000124 
DZ ( 2 ) =0.0001 24 
DZ(3)=0. 000124 
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DZ (4) =0.00335 
DZ(5)=0. 00335 
DZ(6)=0.00754 
DZ(7)=0.0134 

DZ(a)«0.0302 

63 IF(DT-. 05)201, 201, 200 

200 JA-0 
JB=0 
JOO 
JD-0 

64 JA*«JA+1 
JB*=JB+1 
JOJC+1 
JD=JD+1 

IF(0T-DA(JA))65,65,64 

201 D-0 

I F (Z Y ) 7 1 ,71,54 

65 IF(DW-0. 188)66,66,67 

66 CY*=DX( JB-1 ) 

CZ-DX(JB) 

GO TO 70 

67 IF(DW-0.75)68,68,69 

68 CY-DY(JC-I) 

CZ=DY(JC) 

GO TO 70 

69 CY-DZ(JD-I) 

CZ-DZ(JD) 

70 D“CY+(CZ-CY)*(DT-DA( JA-1 ) )/ (DA( JA)-DA( JA-1 ) ) 
IF(ZY)71,71,54 
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71 AC»(DT*DW-D)*SH1 

72 IF(RT)73,73,74 

73 AS=0. 785*RD*RD 
GO TO 55 

74 ZY-1.0 
DT-RT 
DW-RD 

GO TO 63 

54 AS=RT *RD-D 

55 S«PI/(C*AC) 

CY-PT *FE*0. OOOOO 1 /AS 

FK=RR*CY 

FR= ( T 2+23 4 . 5 ) *F K*0 . 003 94 
RC=0.321*PT *FE*AS 
I F (SH) 202,203 ,202 

203 ET-1 
EB-1 

GO TO 204 

2 02 AA- 0. 584+ ( S N*S N- 1 . 0 ) *0 . 06 25* ( SD*C L / ( SH*HM) ) **2 . 0 
AB=( SH*SC*F*AC/ ( BS*RB) ) **2 . 0 
ET»AA*AB*0. 00335+1 .0 
EB«ET-0.00168*AB 

204 RY-SC*QQ*0. 00000 1*HM/(PN*AC*C*C) 

RG»RS*RY 

RP=RB*RY 

A»P I *SC*CF / ( C*T S ) 

PUNCH 1 ,VA,EE,EP,PN,F,PX 
PUNCH 1,RPM, PI , PF ,CK, POL, D I 
PUNCH 1 ,DU,CL,SS,HC,SF,QN 
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PUNCH 1 ,WL,BK,Z7. .B0.B1 ,B2 
PUNCH 1 , B3 ,BS,HO,HX,HY,HZ 
PUNCH1 .HS.HT.HW.QQ.W.F’F 
PUNCHI.SC.YY.C.TS.SN.DB 
PUNCH 1 , CE.SH.SD.TT.SK.RB 
PUNCH 1, ALC0.TP.D1 .FE.RD.RT 
PUNCH 1 ,T2,RR,SNL,WF,PE,SN1 
PUNCH1,DW1,BP1,BP2,TP1,TP2,ALP 
PUNCH 1 .DR.WR.TFP.DFP.DSI , ALSH 
PUNCH 1 ,P1,P2,P3,P4,P5,P7 
PUNCH 1, RS.GC.PT, Cl, CW, CP 
PUNCH I.EL.CM.CQ.DW.CC.PBA 
PUNCH I.GE.CS.CF.FS.EC.DF 
PUNCH 1 .HM.SM.AS.AC.ET.EB 
PUNCH1 .S.FK.FR.RC.RG.RP 
PUNCH1 .A.DC1 ,ALZ 
PAUSE 
END 
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c 


PASS 3 ROTATING COIL LUNDELL 


1 FORMAT (El 1.5, Ell. 5, El 1.5, Ell. 5, Ell. 5, Ell. 5) 
READ1 ,VA,EE,EP,PN,F,PX 
READl ,RPM,PI ,PF,CK,POL,D! 

READ1 ,DU,CL,SS,HC,SF,QN 
READl ,WL,BK,ZZ,B0,B1,B2 
READl ,B3,BS,HO,HX,HY,HZ 
READl ,HS,HT,HW,QQ,W,RF 
READl ,SC,YY,C,TS,SN,DB 
READl ,CE,SH,SD,TT,SK,RB 
READl , ALCO,TP,D1,FE,RD,RT 
READl ,T2,RR,SNL,WF,PE,SN1 
READl ,DW1,BP1,BP2,TP1,TP2,ALP 
READl ,DR,WR,TFP,DFP,DS1 ,ALSH 
READl ,P1,P2,P3,P4,P5,P7 
READl , RS,GC,PT,C1,CW,CP 
READl ,EL,CM,CQ,DW,CC,PBA 
READl ,GE,CS,CF,FS,EC,DF 
READl ,HM,SM,AS,AC,ET,EB 
READl ,S,FK,FR,RC,RG,RP 
READl , A,DC1 ,ALZ 
IF(PBA-60.0) 105, 105, 108 

105 IF (CS— 0.667) 1 Ob, 1 06, 1 07 

106 FF=0.25*(6.0*CS-1.0) 

107 FF-0.25*(3.*CS+1.0) 

GO TO 75 

108 IF(CF-0.667) 109, 109,110 

109 FF-0.05*(24.0*CS-1.0) 

GO TO 75 
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110 FF= 0. 7 5 

75 CX=FF/ (CF'' r CF*DF*DF ) 

Z=CX*20.0/(PN*QN) 

BT=3 . 1 42*0 1 /QQ-BO 

Z A=BT *BT / ( 1 6 . 0*T S*GC ) 

ZB=0.35*BT/TS 

ZC-HO/BO 

ZD-HX*0.333/BS 

ZE-HY/BS 

I F(ZZ-2.o) 76,77,78 

76 POZ*(ZE+ZD+ZA+ZB) 

GO TO 82 

77 POZ*(ZC+(2.0*HT/(B0+BS)) + (HW/BS)+ZD+ZA+ZB) 

GO TO 82 

78 I F (ZZ— 4.0) 79,80,81 

79 POZ*(ZC+(2.0*HT/(B0+B1))+(2.0*HW/(B1+B2)) + (HX*0.333/B2)+ZA+ZB) 
GO TO 82 

80 POZ*(ZC+0.b2) 

GO TO 82 

81 POZ*(ZE+ZD+(0.5*GC/TS)+(0.25*TS/GC)+0.6) 

82 EK-EL/(10.0**(0. 103*YY*TS+0.402)) 

I F ( D I -8 , 0 ) 83,83,84 

83 EK-SQRT(EK) 

84 ZF«.612*L0G(10.0*CS) 

EW-6.28*EK*ZF*(TP**(0.62-(0.228*LOG(ZF))))/(CL*DF*DF) 

87 ZA-3. 1416*(DI+HS)/QQ 
I F (ZZ-3.0) 88,89,88 

88 TM-ZA-BS 
GO TO 90 
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89 TM=(3.1416*(DI+2.*HS)/QQ)-B3 

90 WI=(TM*QQ*SS*HS+(DU-HC)*3. 142*HC*SS)*0„283 
I F(WF >445,446,44 5 

446 WF=2.52E-6*(DR**2.5)*ALP*RPM**1 .5 

445 WC*=.32 1*Hh*Q0*AC*SC 

PUNCH 1,VA, EE, EP,PN,F,PX 
PUNCH 1 ,RPH,PI ,PF,CK,P0L,DI 
PUNCH 1 ,DU,CL,SS,HC,SF,QN 
PUNCH 1,WL,BK,ZZ, BO, B1 ,B2 
PUNCH 1 ,B3,BS,H0,HX,HY,HZ 
PUNCH1 ,HS,HT,HV/,Q0,VV,RF 
PUNCH1,SC,YY,C,TS,SN,DB 
PUNCH 1 ,CE,SH,SO,TT,SK,RB 
PUNCH 1, ALC0,TP,D1 ,FE,RD,RT 
PUNCH1 ,T2 f RR, SNL , WF , PE , SN1 
PUNCH 1,DW1,BP1,BP2,TP1,TP2,ALP 
PUNCH 1 ,DR,WR,TFP,DFP,DS1 ,ALSH 
PUNCH 1 ,P1,P2,P3,P4,P5,P7 
PUNCH 1 ,RS,GC,PT,C1 ,CW,CP 
PUNCH 1 ,EL,CM,CQ,DW,CC,PBA 
PUNCH 1 ,GE,CS,CF,FS,EC,DF 
PUNCH 1 ,HH, SM,AS, AC,ET,EB 
PUNCH1 ,S,FK,FR,RC,RG,RP 
PUNCH1 ,FF,CX,PC,EK,EW,TM 
PUNCH1 , A,DC 1 ,W! ,WC,ALZ 
PAUSE 
END 
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C PASS 4 ROTATING COIL LUNDELL 
3 F ORMAT ( 9X F12.5,2X F12.5) 

1 FORMAT (Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 
READ1 ,VA,EE,EP,PN,F,PX 
READ1 ,RPM,PI ,PF,CK,POL,DI 
READ1 ,DU,CL,SS,HC,SF,QN 
READ1 ,WL,BK,ZZ,B0,B1,B2 
READ1 ,B3,BS,HO,HX,HY f HZ 
READ1 ,HS,HT,HW,QQ,W,RF 
READ1 ,SC,YY,C,TS,SN,DB 
READ1 ,CE # SH,SD,TT,SK,RB 
READ1 , ALCO,TP,D1,FE,RD,RT 
READ1 ,T2,RR,SNL,WF,PE,SN1 
READ1 ,DW1,BP1,BP2,TP1,TP2,ALP 
READ1 ,DR,WR,TFP,DFP,DS1,ALSH 
REAOI ,P1,P2,P3,P4,P5,P7 
READ1 ,RS # GC,PT,C1 f CW,CP 
READ! ,EL,CM,CQ,DW,CC,PBA 
READ1 ,GE,CS,CF,FS,EC,DF 
READ1 ,HM,SM,AS,AC,ET,EB 
REAOI ,S,FK,FR,RC,RG,RP 
READ1 ,FF,CX,PC,EK,EW,TM 
READ! , A,DCt ,WI ,WC,ALZ 
AP-BP2*TP2 
IF (PI )400 f 40t ,400 
40t R2-(DR-DFP)/2. 

R1=*R2+TP1 

P1-2.*BP1*L0G(R1/R2) 

400 IF (P2) 402, 403, 402 




403 AL2=TP— (BP1+BP2) /2. 

P2-3 . 1 9*ALP*( (TP2+TP1 ) /2. ) / AL2 
402 I F(P3) 404,405, 404 

405 R3“R1+ALP/2. 

R4-R1 

P3«(6.38*((3.*BP1+BP2)/4.)/3.l4l6)*L0G(R3/R4) 

404 I F(P4) 406,407,406 

407 P4«(3.19*ALP/3.1416)*L0G(1.+(BP1+BP2)/(2.*AL2)) 
I F(PX-4.) 408,408, 406 

408 P4-1.5*P4 

406 IF ( P5 ) 41 0,41 1,41 0 

41 1 P5»(6.675/ALC0)*(DC1**2.-DS1**2.)/3. 

410 IF(P7)412,413,412 

413 P7“2.5*(DU+DFP)*(DU-DI ) /(DU-DFP) 

412 TG-6.E6*EE/(CW*EC*RPM) 

BT1-TG/(QQ*SS*SM) 

FQ-TG*CP/PX 

BC1»FQ/(2.*HC*SS) 

BG1-TG/(3. 1416*01*0.) 

FG-BG1*GE/.00319 

ALA-6.38*DI/(PX*GE) 

PGE-PX*(P1+P2+P3+P4) 

ALF-(PGE+P5)/CL 

XR-. 07 07*A*DF/ ( BG 1 *C 1 ) 

XL-XR*( PC+EW+ALZ ) 

XD«XR*C1*CM*ALA 

XQ-XR*CQ*ALA 

XA-XL+XD 

XB-XL+XQ 
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VR=3. 1416*DR*RPM/12. 

XF=XD*( 1 .-( (C 1 /CM) / (2.*CP+(4.*ALF/ (3.1 416*ALA) ) ) ) ) 

SI=PT*PT*CL*PX*(CP*ALA*1.57+ALF)*1.E-8 

XU-XL+XF 

XS=.88*XU 

XX-XS 

XY*=XB 

XN«.5*(XX+XY) 

1F(W)414,415,414 
415 X0«=0. 

GO TO 422 

414 IF(CS-1.)417,418,417 

418 AKX-1. 

AKX1-1. 

GO TO 419 

417 AA«(3.*YY/(PN*QN)) 

AKX-AA-2. 

I F(AA/3.-. 667)420, 420,421 

420 AKX1".75*AA-.25 
GO TO 419 

421 AKX1-.75*AA+.25 

419 ABL«(AKX/(CF**2) )*.07*ALA 
XO-AKX* ( ABL+PC ) / AKX 1 

XO-XR*( X 0 +( 1 ,667*(HX+3 .*HZ ) ) / (PN*QN*CF**2*DF**2*BS ) +. 2*EW) 

422 TC-SI/FK 

RA»PN*P l*PI *RG/(VA*1 000. ) 

TA-XN/(628.32*F*RA) 

T5-XS*TC/XA 

IF(F-60.)425,426,425 


Jif-39 



425 T4=.005 
GO TO 427 

426 T4-.035 

427 FSC»XA*FG*.02 

PRINT3,AC,A,S,XR,HM,XL,RG f XD,RP,XQ,ET,XA,EB,XB,PC,XF,EW,SI ,WC,XU 

PRINT3,WI,XS,TP,XN t WR,XO,VR,TC,AS,TA,FK,T5,FR,T4,RC,TG,P1,FQ 

PRINT3,P2,BG1,P3,BT1,P4,BC1 

PUNCH1, BK,WL,QQ,SM,BS,RPM 

PUNCH 1 # TS,BO,GC,C1 # DI,CL 

PUNCH 1 ,ET,EB,C,SC # PN,PI 

PUNCH 1 ,HS # BT1,BC1,DU,HC,PX 

PUNCH1,PGE,FQ,AP,ALP,P7,FG 

PUNCH1 ,DS1 ,ALSH,PT,FR,AS,PF 

PUNCH1 ,XB,XA,CK,XD,POL,SNL 

PUNCH 1,FK,RP,RG,EP,BG1,SS 

PUNCH 1 # D1 ,FSC, P5,WF,EP,EE 

PAUSE 

END 
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c PASS 5 ROTATING COIL LUNDELL 

1 FORMAT (E 1 1.5, Ell. 5, Ell. 5, El 1 .5, El 1.5, El 1.5) 
DIMENSION GB(4),AE(4),DX(4) 

READ1 , BK,WL,QQ,SM,BS,RPM 

READ 1 , TS,B0,GC,C1 # DI ,CL 

READ 1 ,ET,EB,C,SC,PN,PI 

READ 1 ,HS,BT1,BC1,DU,HC,PX 

READ 1 ,PGE,FQ,AP,ALP,P7,FG 

READ1 ,DS1,ALSH,PT,FR,AS,PF 

READ 1 ,XB,XA,CK,XD,P()L,SNL 

READ 1 ,FK,RP,RG,EP,BG1,SS 

READ 1 ,D1,FSC,P5,V4 ,EP,EE 

WQ=(DU— HC ) *1 ,42*HC*SS*(BC 1 /BK) **2.0*WL 

WT= SM *QQ*SS*HS*0.453*(BT 1 /BK)**2.0*WL 

132 D2=BG 1**2. 5*0.000061 

D3=(0.0167*QQ*RPM)**1 .65*0.000015147 
IF(TS-0. 9)133, 133, 134 

133 D4-TS** 1.205*0. 81 
GO TO 137 

134 IF(TS-2. 0)135, 135, 136 

135 D4-TS**1. 145*0.79 
GO TO 137 

136 D4«TS**0.79*0.92 

137 D7-B0/GC 

I F (07— 1 • 7) 138, 138, 139 

138 D5“D7**2.3 1*0.3 
GO TO 144 

139 I F (07-3 . 0)140,140,141 

140 D5-D7**2. 0*0.35 
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GO TO 144 

141 IF (D 7-5.0) 142, 142, 143 

142 D5=D 7**1 .4*0.625 
GO TO 144 

143 D5»D7**0. 965*1 .38 

144 d6=10.0**(0.932*C1-1 .606) 

BA=3 . 142*0 I *CL 

WN=D1*D2*D3*D4*05*D6*BA 

AXX“BO/GC 

I F ( AXX-1 .>964,965,964 
965 AKSC=2.6 
GO TO 957 

964 lF(AXX-3. 75)955,955, 956 

955 AKSC=1 0.**. 1 78/ ( (AXX-1 . )**.334) 
GO T0957 

956 AKS010.**.1 1/( (AXX-1 .)**. 174) 

957 XX1-P I *P I *PN 
XX3=3.*EP*PI*PF 
XX2=(ET+EB)/2.-1. 

XX4~AKSC*P I *SC/ ( C*FG ) 

GB( 1 )“1 . 

GB(2)=1 .5 
GB(3)»2. 

GB(4)=P0L 

AN-AT AN (SQRT ( 1 .-PF *PF ) /PF ) 

AN1“S I N( AN) 

DO 777 K-1,4 
YB-GB(K) 

AA «ATAN( ( AN1+XB*YB/1 00. ) /PF) 
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AE(K)=C0S(AA-AN)+XA*SIN(AA)*YB/1 00. 

777 D X ( K ) = . 93*XD*Y B*S I N ( A A ) / 1 00 . 

PUNCH 1,AE(1 ),AE(2),AE(3) ,AE(4) 

PUNCH 1 ,DX(1),DX(2),DX(3)»DX(4) 

PUNCH 1 ,HS,BT1,BC1 ,DU,HC,PX 
PUNCH 1 ,PGE,F0,AP,ALP,P7,FG 
PUNCH 1,DS1 ,ALSH,PT,FR, AS,PF 
PUNCH1,XB,XA,CK,XD,P()L,SNL 
PUNCH1 ,W0,WN,WF,XX1 ,XX2,XX3 
PUNCH1 ,FK,RP,R('i,XX4,FSC,P5 
PUNCH 1,WT, EE 
PAUSE 
END 
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C PASS 6 ROTATING COIL LUNDELL 

DIMENSI0NBSHL(4),BPL(4),FFL(4),CDD(4),AIFL(4),EPFL(4) 
DIMENSION AE(4),DX(4),AI (90),PTL(4) ,PLL(4) 

700 FORMAT (13) 

3 FORMAT ( 9X F12.5,2X F12.5) 

4 FORMAT ( DX FI 2.5/) 

1 FORMAT (El 1.5, El 1.5, EH. 5, Ell. 5, El 1.5, Ell. 5) 

888 FORMAT (FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0) 

K=1 

823 READ888, Al (K) , A I (K+1 ) , A I (K+2) , A I (K+3) , A I (K+4) ,AI (K+5) 
K=K+6 

I F(K-89) 823,824, 824 

824 READ 1 , AE ( 1 ) , AE ( 2 ) , AE (3 ) , AE (4) 

READ1 ,DX(1 ) ,DX(2) ,DX(3) ,DX(4) 

READ 1 , MS , BT 1 , BC 1 , DU,HC , PX 
READ1 ,PGE,FQ,AP,ALP,P7,FG 
READ 1 , DS1 , ALSH,PT,FR, AS,PF 
READ1 , XB, XA,CK, XD, POL, SNL 
READ 1 ,WQ,WN,WF,XX1,XX2,XX3 
READ1 , FK,FIP,RG,XX4,FSC , P5 
READ1 , WT , F. E 
ASH=.7854*DS1*DS1 

COREL=( .7854*(DU-HC) /PX) 

LOAD= 1 
X=BT 1 
NA= 1 
K= 1 

GO TO 802 
806 FT=HS*AT 
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X=BC 1 
K=2 
NA= 1 

GO TO 802 

807 FC=COREL*AT 
FS=FT+FC 

PL=PGE*(2.*FG+2 . *FT+FC ) *.00 1 
PLT=F0+(PL*2./PX) 

BP=PLT/AP 
X=BP 
NA=3 1 
K=3 

GO TO 002 

808 FP=AT *ALP 
PL7=P7*(FP+FG+FS)*.OOl 
PL5=P5*( 2. *(FG+FT+FP)+FC)*. 000667 
PSH=(PLT*PX/2.)+PL7+PL5 
BSH=PSH/ASH 

X=BSH 
NA=6 1 
K=4 

GO TO 802 

809 FSH=ALSH*AT 

FNL=2 . *(FG+FS+FP)+FSH 
A I NL=FNL/PT 
EPNL=A I NL*FK 
CD=AI NL/AS 
SCR=FNL/FSC 

PRINT3,P5,FT,P7,FC,FSC,FG 
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PR I NT4, SCR 
L0AD=2 

DO 899 J=1,4 
AED=AE( J) 

PLL(J)-PL*((AED*FG+(1.+PF)*FT+FC)/(FG+FS) ) 
IF(PF-. 95)825, 825, 826 

825 PPL-FQ*(AF.D-DX(J)) 

GO TO 827 

826 PPL=FQ*CK 

827 PTL(J)=PPL+(PLL(J)*2./PX) 

PPTL=PTL( J) 

X-PPTL/AP 
BPL(J)=X 
NA*=3 1 
K=1 

GO TO 802 

841 FPL=AT*ALP 

AA=(AED*FG+FPL+FT*(1 ,+PF)+FC) 

PL7L=.001*P7*AA 

PL5-P5*(2.*(AED*FG+FPL+FT*(1 .+PF))+FC)*. 000667 

PSHL=PPTL*PX/2 .+PL7L+PL5 

PSHL=*PPTL*PX/2.+PL7L 

X=PSHL/ASH 

BSHL(J)=X 

NA«6 1 

K~2 

GO TO 802 

842 FSHL*=ALSH*AT 

FFL(J)-2.*(AED*FG+(1.+PF)*FT+FPL)+FC+FSHL 
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F F L ( J ) = AA* 2 ,+FSHL 
AIFL(J)=FFL(J)/PT 
CDD(J)=AIFL(J)/AS 
899 EPFL ( J ) =AI FL( J ) *FR 
837 JA=JA/2 

PUNCH700, JA 
IF(JA)891 ,892,891 

891 DO 890 K=1 , JA 

PUNCHl ,BPL(K) , BSHL(K) ,FFL(K),AIFL(K) ,CDD (K) ,EPFL(K) 
890 PUNCHl, PTL(K),PLL(K) 

892 PUNCHl, XXI, XX2, XX3 , XX4,WT,WQ 
PUNCHl, WF,V/N,RP,RG,FK,FR 
PUNCHl ,BP,BSH,FNL, Al NL,CD,EPNL 
PUNCH 1,SNL,FP,BT1,FQ,BC1 
PUNCH 1,FG, AT, HS, COREL, P7,PGE 
PUNCH 1,AP, ALP, PX,ALSH, ASH 
PUNCH 1 ,PL,PLT,POL,XA,EE 
PAUSE 

802 I F ( A I (NA)-X)830,831,831 
831 NA=NA+3 

835 I F ( A I (NA)-X)833,834,834 

833 NA=NA+2 
GO TO 835 

834 AX=AI (NA) 

BB 1=AI ( NA— 2 ) 

DC=A I (NA+1) 

D=AI (NA-1) 

XX= (AX-BB1)/(.4343*(L0G(DC)-L0G(D+.0001))) 

Y=AX-XX* . 43 43 *LOG ( DC ) 
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AT=EXP(2.3 0b*(X-Y)/XX) 

GO TO (833, 839), LOAD 

838 GO TO (806,807,800,809,810) ,K 

839 JA=JA+1 

GO TO (841, 84?.), K 
830 GO TO (836,837) , LOAD 
836 PRINT 850, 

850 FORMAT (17HMACHIME SATURATED) 
PAUSE 
END 
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C PASS 7 ROTATING COIL LUNDELL 

DIMENSION BPL(4),BSHL(4),FFL(4),AIFL(4),CDD(4),EPFL(4),FCUL(4) 
DIMENSION WNL(4),STTL(4),SCUL(4),EDDL(4),TOTL(4),PEFF(4),GB(4) 
DIMENSION PLL (4) , PTL (4) 

961 FORMAT (F 11. 3, Bx F1 1 .3 ,F 1 1 .3 ,F 1 1 .3 ,F 1 1 .3 ) 

700 FORMAT (13) 

1 FORMAT (Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

DO 705 N-1,4 

PLL ( N) =0 
PTL ( N)=Q 
BPL ( N) = 0 
BSHL ( N)=0 
FFL ( N)=0 
A I FL ( N) =0 
CDD( N)=0 
EPFL ( N) =0 
FCUL ( N) =0 
WNL ( N) = 0 
STTL(N)=0 
SCUL ( N) =0 
EDDL(N)=0 
T0TL(N)-0 
705 PEFF ( N) =0 
READ700, JA 
I F ( JA) 702,703 , 702 

702 DO 704 K-1,JA 

READ1 ,BPL(K) ,BSHL(K) ,FFL(K) , Al FL(K) f CDD(K) , EPFL(K) 

704 READ 1 , PTL ( K) , PLL (K) 

703 READ1 , XXI ,XX2,XX3,XX4,WT,WQ 
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READ 1 ,WF,WN,RP,RG,FK,FR 
READ 1 , BP , BSH,FNL, A I UL ,CD, EPNL 
READ1,SNL,FP,BT1,FQ,BC1 
READ 1,FG, AT, MS, COREL, P7,PGE 
READ1 , AP, ALP , PX, ALSH, ASH 
READ 1,PL,PLT,POL,XA,EE 
IF (SNL) 7 07, 706, 707 

707 PUNCH1,SNL,BT1,FQ,BC1,EE 
PUNCH 1 , FG,HS, COREL, P7,PGE 
PUNCH1 ,AP, ALP, PX, ALSH, ASH 

706 FEL=AI NL*AI NL*FK 

T L=F E L+WT +WQ+WN +WF 
ABX=0 

IF(JA)71^,712,714 
714 I F ( JA-4) 708,7 09,708 

709 IF(POL)708, 710,708 

710 JA=JA— 1 

708 GB(1)-1. 

GB(2)-1.5 

GB(3)=2. 

GB(4)=P0L 

DO 711 K“1 , JA 
YB=GB(K) 

FCUL(K)=AIFL(K)**2*FR 

STTL(K) = ( ( ,0027*XA*YB)**2*2.+1 ,)*WT 

WNL(K)*=( ( XX4*YB ) **2+1 . ) *WN 

SCUL ( K)=XX 1 *RP*YB 

EDDL(K)**SCUL(K)*XX2 

TOT L ( K) “EDDL ( K) +SC UL ( K) +WNL ( K) +STT L ( K.) +F CUL ( K) +WQ+WF 
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71 1 PEFF (K)=XX3*YB*1 00. / (XX3*YB+T0TL (K) ) 

712 IF (POL) 95»,959,958 

958 PR I NT 961 ,PL,PLL( 1 ) ,PLL(2) , PLL (3 ) , PLL (4) 

PR I NT961 ,BP f BPL(1) ,BPL(2) , BPL (3 ) , BPL (4) 

PR I NT 961 , PLT ,PTL(1),PTL(2),PTL(3),PTL(4) 

PR I NT 961 ,BSH,BSHL( 1 ),BSHL(2) , BSHL (3 ) , BSHL (4) 

PRINT 961, FUL,FFL(1),FFL(2),FFL(3),FFL(4) 

PRINT961,AINL,AIFL(1),AIFL(2),AIFL(3),AIFL(4) 

PR I NT961,CD,CDD(1),C[)D(2),CDD(3),CDD(4) 

PRINT96l,EPNL,EPFL(1),EPFL(2),EPFL(3),EPFL(4) 

PR I NT 96 1 , WO , WO , WQ , WQ , V/Q 

PR I NT961,WT,STTL(1),STTL(2),STTL(3),STTL(4) 

PR I NT 961 ,ABX,SCUL( 1) ,SCUL(2) , SCUL (3 ) , SCUL (4) 

PRINT961,ABX,EDDL(1),EDDL(2),EDDL(3),EDDL(4) 

PR I NT 96 1 , WN,WNL ( 1 ) ,WNL (2) ,WNL (3 ) ,WNL (4) 

PRINT961,FEL,FCUL(1),FCUL(2),FCUL(3),FCUL(4) 

PRINT96l,WF,WF,WF,WF,WF 

PRINT 961, TL,T0TL(1),T0TL(2),T0TL(3),T0TL(4) 

PRINT 961, ABX,PEFF(1),PEFF(2),PEFF(3),PEFF(4) 

PAUSE 

959 PRINT961,PL,PLL(1),PLL(2),PLL(3) 

PRINT 961, PLT, PTL(1),PTL(2),PTL(3) 

PRI NT961 ,BP,BPL( 1 ) ,BPL(2) ,BPL(3) 

PR I NT 96 1 , BSH, BSHL( 1 ) , BSHL (2) , BSHL (3 ) 

PRI NT 961 ,FNL,FFL( 1) ,FFL(2) ,FFL(3) 
PRINT961,AINL,AIFL(1),AIFL(2),AIFL(3) 

PRI NT 961 ,CD, CDD( 1 ) , COD (2) , CDD (3 ) 

PRINT961,EPNL,EPFL(1),EPFL(2),EPFL(3) 

PRI NT 961 ,WQ,WQ,WQ,WQ 
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PRINT 961, WT,STTL(1),STTL(2),STTL(3) 
PR I NT 961 ,ABX,SCUL( 1 ) , SCUL (2) , SCUL (3 ) 
PRINT 961, ABX,EDDL(1),EDDL(2),EDDL(3) 
PR I NT 96 1 , WN, WML ( 1 ) , WNL ( 2 ) , WNL (3 ) 

PRI NT 961 ,FF.L,FCIJL( 1 ) ,FCUL(2) ,FCIJL(3) 

PR I NT96l,WF,WF,WF,WF 

PRINT 961, TL,TOTL(1),TOTL(2),TOTL(3) 

PRINT961,ABX,PEFE(D,PEFF(2),PEFE(3) 

PAUSE 

END 
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C PASS 8 ROTATING COIL LUNOLLL 
DIMENSION A I (90) 

1 F ORMAT ( F_ 1 1.5, El 1.5, El 1.5, El 1.5, El 1.5, El 1.5) 

888 FORMAT (FI O.O, FI O.O, FI 0.0, FI 0.0, FI 0.0, FI 0.0) 

878 FORMAT (FI 2. 5, F 1 2. 5, F 12. 5, F 1 2. 5, F 12. 5, F 12. 5) 

879 FORMAT (F 12. 5, F 12. 5, F 12. 5, F 1 2. 5, F 12. 5, F 12. 5//) 

K= 1 

823 READ888, A I ( K) , A I (K+1),AI (K+2),AI (K+3),AI (K+4),AI (K+5) 
K=K+6 

I F (K-89)823 ,824,824 

824 READ 1 ,SNL,BT1,F0,BC1,EE 
READ 1 ,FG,HS, COREL, P7,PGE 
READ 1 ,AP,ALP,PX,ALSH,ASH 
YB=.8 

LOAD= 1 

DO 800 N= 1 , 9 

R1=BT1*YB 

R2=FQ*YB 

R3=BC1*YB 

R4=FG*YB 

R5=EE*YB 

X=R1 

NA= 1 

K=1 

GO TO 802 
806 FT=HS*AT 
X=R3 
K=2 
NA= 1 
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GO TO 802 

807 FC=COREL*AT 
FS=FT +FC 

PL=PGE* ( 2 . * ( R4+FT ) +FC ) * . 00 1 

PLT=R2+PL*2./PX 

BP=PLT/AP 

X=BP 

NA=3 1 

K=3 

GO TO 802 

PL5=P5*(2.*(R4+FT+FP)+FC)*. 000667 

808 FP=AT*ALP 
PL7=P7*.001*(FP+FS+R4) 
PSH=(PLT'' r PX/2 . )+PL7 
BSH=PSH/ASH 

X=BSH 
NA=6 1 
K=4 

GO TO 802 

809 FSH=ALSH*AT 

F NL=2 . * ( R4+F S+F P ) +F SH 
PRI NT878,R5,R1,FT,R3,FC,R4 
PRINT879,PL,PLT,BP,FP,BSH,FNL 
800 YB-YB+. 1 
PAUSE 

802 I F ( A I (NA)-X)830,83 1,831 
83 t NA=NA+3 

835 I F ( A I (NA)-X)833 ,834,834 
833 NA-NA+2 
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GO TO 835 
834 AX=A I (I4A) 

BB1=AI (14 A-?.) 

DC=A I ( I4A+1 ) 

D=A I ( UA— 1 ) 

XX= ( AX-OB 1 ) / ( .43 43* (LOG ( DC )-LOG (D+.OOOl ) ) ) 
Y=AX-XX*.4343*l-OG (DC) 

AT=EXP(2.306*(X-Y)/XX) 

GO TO (838, 839), LOAD 

838 GO TO ( 8 (X>, 8 07, 8 08,809, 81 0) ,K 

839 JA=J A+1 

GO TO (841, 842), K 
830 GO TO (836, 83 7), LOAD 
836 PR I NT 850, 

850 FORMAT ( 1 7HMACH I HE SATURATED) 

PAUSE 

END 
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INSIDE, SINGLE- COIL, STATIONARY- COIL 
LUNDELL-TYPE A-C GENERATOR 
COMPUTER PROGRAM AND TEST DATA 







PARAME T ERS 



INSIDE-COIL, STATIONARY-COIL LUNDELL GEN E R ATO R 
COMPUTER DESIGN (INPUT) 

EWO - DESIGN NOO) 


GENERATOR KVA 


6 


LINE VOLTS 


L ph (phase VOLTS 


PHASES 


FREQUENCY 


POLES 


RPM 


PHASE CURRENT 


POWER FACTOR 


ADJ. FACTOR 


OPTIONAL LOAD POINT 


STATOR I.D* 


STATOR O.D. 

GROSS COR E LF NOTH 
NO. OF DUCTS 
WIDT M OF DUCT 
STACKING FACT OR 1ST AT OR ) 



FUND/MAX OF FIELD FLUX 


WINDING CONSTANT 


POLE CONSTANT 


END EXTENSION ONE TURN 


DEMAGNETIZATION FACTOR 


CROSS MAGNETIZING FACTOR 


POLE EMBRACE 


WIDTH OF POLE (NARROW END) 


WIDTH OF POLE (WIDE END) 


POLE THICKNESS (NARROW END) (76) 


POLE THICKNESS (WIDE END) 1(76) 


POLE LENGTH | (76) 


ROTOR DIAMETER | OJo 


WEIGTH OF ROTOR IRON 1(157 


POLE FACE LOSS FACTOR [(187 


3 iZ SHAFT 0 - P -< FLUX CARRYING PART 




o 

PERM OF LEAKAGE PATH 1 

LP 

V 

f J f R M 0 F l F A K A G 1 r a ■ H j 

jC) 

C 

| 0 

nt kM OF 1 1 AX A PATH 

! PL RM OF i E A K A G E PATH _ 
\VLky. 1 LEAKAGE PATH j 

j lo7 

; E r N i 1' H OF PrRM PATH ' 

J S)*£L 

j L L NG T H O F P i PM PATH , 


IlLNCTH OF c> f R M P A T h _> 




AXIAL LENGTH OF GAP (g3) 


DIAMETER AT GAP (g3) 


DIAMETER AT GAP (g2) 


MA 

AUXILIARY GAP (g?) 
AUXILIARY GAP (g3) 


JDESIGNER 
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POLE & ROTOR I CONSTANTS 














































































VARIABLE LOAD i r - I STATOR 


INSIDE-COIL, STATIONARY-COIL LUNDELL GENERATOR 
SUMMARY OF DESIGN CALCULATIONS (OUTPUT) 


-Af- {-■ 


MOBI L NO. . 

(17) | ^ ) SOLID CORE LENGTH 

’<2 4)" (k c ) PE RTH BELOW SLOT 

(To SLOT PITC H 

(TmTj 3) SLOT PITCH 1/3 PIST. UP 

(42) (K,k) SKEW FACTOR 

(43) (Kd) PIST. FACTOR 

(44) (K p ) ~ PITCH FACTOR 

(45) (-n „) EFF. CONDUCTORS 

(46) (a c ) COND. AREA 

(47) <S» ) CURRENT DENSITY (STA.) 

(49) (V7) 1/2 MEAN TURN LENGTH 

(53) (R P h) COLP ST A. R ES. *■* 20° C 

(54) (R ph ) HOT STA. RES. ft X°C 

(55) (EF top ) EDDY FACTOR TOP 

(56) (EF^) EDDY FACTOR BOT 

(62) (Al> 5TATOR COND. PERM. 

(63) (A »~T~ END PERM. 

(65) ( ) WT. OF STA COPPER 

T66M ) WT. OF S TA. IRON 

(4 1) (7^) POLF PITCH 

{ ) I W T . OF ROTOR IRON 

i7 i 1 ) '] V , ) ! P I P I P HE R A I SPF E D 

I'm- p .7’ r !m o* ■ . a f- 1 f- * 

i r 

: ■ i -..1 ; f. . ' ■ ->( I. n O J? i .'T> : 


(6 5) ( ) 

( 66 ) < ) 

” (4D jr v ) 

(15/) ( - ) 

115) (V, 


. E WO 

.6 06 50 
.28199 . 
.29503 
1 .ooooc 
.1)659?: 

1 .00000 

156.00000 

.01679 
9665.60000 
6.25980 
.01609 
.01/19 
1 .05660 
1.00660 
7.65600 
5.17680 
6.7.7950 
17.97600 
1 .691.0 
.00000 

'POO.-V' 700 


nFur-u wo 


1 . 06(; 50* CARTER COEFFICIENT 
. 0 73 0? EFFECTIVE AIR GAP ~ 

1 . 06 676 " F UNO/MAX OF FLD. FLUX 

.6 191?" WI NDING CONST. 

.657 05' POLE CONST. 

3.60987' I E ND. EXT. ONE TURN 
.86 665 t "DEMAGNETIZING factor 
.603 7 0" CROSS MAGNETIZING FACTOR 
997 . 9600(7 AMP COND IN 

6.535/ 1 " REACTAN CE FACTOR 
1 3 6 . 53 7 18" LEAKAGE REACTANCE 

360. 1 99?-3" REAC tance of 

169 03 55? - REACT 

j -'."I? [ ARMATURE REACTION 

6/6. / 3 1 H‘ JYN REACT DIRECT AXIS 

n *1 r~ f -1 -1 n ■ - 


(67) 

(K s ) 

(69) 

(gc ) 

(71) 

(c 1)_ 

(72) 

(C.) 

(73) 

(Cp) 

(48) 

(le) 

(74) 

(Cm) 

(75) 

(C q ) 

’ (128) 

(A) 

(129) 

(X) 

(130) 

(Xj) 


(131) (Xpd ) | 

(132) (Xag) 


* • ' ~ jT W K CAL I UIWCV. i AAl 

?.«3 .56770“ SYN REACT QUAD AXIS 
;» 2 9 . ?- 9560- field leakage reac 


.77 932 
603.82556 
608.16651 
608. I605I 
785.56770 
•i 65. 86 7 1 1 


• • : ;• ; < .< f ) T LI A K F P A T M f 

| , r I p f ,7 M O j L £ A K A 6 E P A ( M 7 

( 8 . S (P 3 ) j PERM OF LEAKAGE P ATH 3 
(B.i ) (P 4 } PERM OF LEAKAGE PATH 4 

"jH4) (P5) PERM OF LEAKA GE P AT H 5 

( 66 ) (P/) PERM OF LEAK AGE PATH 7 

" ( 160) (FSO SHORT CIR NJ 

Twumscr) short cir ratio 


PF RCr N 1 LOAD [ 

7 > (100.0 l l l AKA G £ FLU X 

( p ,) TioTfi) 101 AT n TJX POLF 
(H ) (103..) POI I DENSITY 

0^7“ ) (19?) AliX C.APltj?) DC NSIT Y 

(Fi^} ) (I IV) AIJX GAIM TOO! NSITY 
(B*h) 0 13 ) SHAFT DENSITY 

Tl n ,TTT 27) TO I A L N I 

(| ln l )(l27n) F II LD AMPERES __ 
7s7T< ( 127c) CUR. DEN. FLD. 

( E ) n j ) (127brFTEED VOLTS 

77 c ) (185) STA CORE LOSS 
(W int ) 084) STA TOOTH LOSS 
(| 2r , ) ( 1 94 ) STATOR CU LOSS 

rn r rmi eddy loss 

(Wp ol )Q8A) POLE FACE LOSS 
(1 2 R| ) (182) FIELD COIL L OSS 

Tf&W) ( 183) F&W LOSS 

( - ) (196) TOTA L LOSSES 

( _ ) ( - ) PE RCENT E^FX 


J, r: re r 

J . jj J — 


1 7.667 
36 . 77 ? 
i. r/ .t 6 c 

1 .176 

589.7’; i) 

1 .73 1 
1.531 

1.977 
.000 
.000 
. 7.396 

_ 2.036 
. 52.375 
_ 60.759 
.000 


r . o Oi • 

‘ ,i)T - . TO 

:.:?o 3 GO 
a. 50000 
: 7 . ■: 0000 
avsyGoo 


l ) (197a) 
f ptl ) ( 213 a) 
(Bp I ) < 213 hj 
(Bq 2 ll)(M 4 ) 
(^ } 3 f:)(? 3 °) 
(B.hl) ( 232 ) 

" (EH T (236r 

(l(fl) (23 7 )“ 
( ) (239) 

“(EHI )(23»r 
“(W e ) (185) 
~ (Wtf| ) (242) 
(| 2 R,X24S)~ 
( - ) (246) 
"( W pfl )(243) 
(| 2 R() (241) 
(F&W) (183) 
" (-) (247) 

"(-) (251) 


FIELD LEAKAGE REACT 
FI ELD SELF INDUCTANCE 

UNSAT. TRANS. REACT 

SAT. TRANSuREACT 

SUB. TRANS. REA CT DIR ECT AX, 

SUB. T R ANS RE ACT QUAD AX. 

~N F G S E Q IJE NC E REACT 
] / F R O S EQUE NC F K E A C T 
! '.»;'E~N < il- . TIME CUN' 

Tarm M./C CON j t . 

; £ k AN i : I i ONST 

j SUB K A U 1 ( M t C 0 M : . 


(133) 

<*d) 

(134) 

(X q ) 

(160) 

(X( ) 

(161) 

(Lf ) 

(166, 

(X d u ) 

(167) 

(X’C 

(1681 

(X M d) 

(169, 


f 1 70? 

(X/ ) 

i < 1 7 7 s 

• V , « 


7 9.76300 
15.77800 
. 57 963 
.65031 
I Go . 06000 
100 f_ 

i ,;:.n 1 


i i J<3 . 5')*' 

5 5. 6 6 .-. 

: .» . 1 : _ 
96 . 5 >< - 
7161.600 
6.08 9 __ 
j 005.800 _ 
10.976 _ 
1 . 53 1 _ 
8.655 _ 
1010.889 _ 
19.815 _ 
65.707 _ 
6 0.55 5 — 


TCT VL FLUX ! 

FLUX PE R POLE 

(93) _(_:_p_Lj 

GAP DENSITY (MAIN) 

(95' <B >, ) 

TOOT H DENSITY j 

(91) (Bt ) 

CORE DENSIT Y 

(94) (B c ) 

TOOTH AMPERE TURNS 

(97) (F, ) 

CORE AMPERE TURNS 

(98) (F c ) 


OPTIONAL 



^ : 1 ■’ 

* 000 

r :)0 

' 1 ■ 7 ' 1 

iooj 

'■'O’. 

r - ■ o 

.000 

(10 0 


.000 

000 _ 

O J K 

» o o o 

ore 

• l - ’ ' • 1 1 • 

.000 


. 00 0 — 

.000 

000 

.000 — 

.000 

000 

.000 _ 

.000 

000 

. 000 _ 

.000 

53 1 _ 

1.531 - 

1.531 

000 

.000 

.000 

000 _ 

. 000 — 

.000 

,000 _ 

.000 — 

.000 

, ooc 

.000 — 

.000 


3?. .3-5 
1135.550 
Oi- . 05' 


.000 
, o * nr 
> - . J /- J 

.000 

.000 


.000 

32.325 

.000 

.000 


.000 

.000 


DESIGNER 


OWQtNAL PAQE 15 
OF POOR QUALITY 



INSIDE-COIL, STATIONARY-COIL LUNDELL 
NO LOAD SATURATION OUTPUT SHEET 


ITEMS 

(3) <E) 

VOLTS 

(96) F g 
GAP NX 

IHOX1HI 

’4 1 !1 4 : 

(97) F t 

STATOR TOOTH M.L 

(94) (B c ) 

STA CORE DENSITY 

(93) F c 
STA. CORE N.l. 

% \v 

VOLTS \ 

(102a) ■/- p , 

TOTAL FLUX /POLE 

(103a) B p 
POLE DENSITY 

<«« B gJ 
DENSITY <2 

<"»>B g3 

DENSITY *3 

013) B,K 
SHAFT DENSITY 

027) F„| 

TOTAL N.l. 

80% 

8.00000 
37 .85?-2*. 1 

84.84800 
33.7 967 1 

23 .79440 
1 0.22491 

.48028 

10.08810 

1 1 .02240 
29.02610 

.4132- 

336.9904; 

90% 

9.00000 

42.58178 

95.45400 

38.01943 

20.76870 

1 1.50159 

m 

12.40020 

32.64924 

.43165 

377.24071 

100% 

10.00000 
47.31 157 

1 06 .06 000 
42 . 7.47.47 

2 9.74300 
1 2.7784 9 

. 57 943 
12.6 07 52 

13.77800 

36.27317 

.4508 1 
417.609180 

1 10% 

1 1 .00000 
52.04177 

1 16 .66600 
46.46 587 

32.7 1730 
14.05504 


15.15560 
3 9.897 96 

. 4/ L)e5 

450,501 O'? 

120% 

12.00000 

56.77240 

127.27200 

50.60964 

35.0910 0 

15.33300 

.69904 
15.1 27 90 

1 6 . 53360 
43.52370 

.45175 

499.2336 

130°, 

13.00000 
61 .50350 

137.87800 

54.91384 

38.00590 
10. 6 1070 

.70782 

16.38851 

17.91 140 
4/ . 1 5045 

.5136 n 
540.4642 

140% 

14.00000 

06.23 549 

1 40.48400 
5 9 .13 885 

41 .04020 
17.88888 

.84659 

17.04953 

1 9.28920 
50.77863 

. 5364 

582 . 02 8 ' 

150% 

15.00000 
7 0.96845 

159.09000 
6 3 . 36 40 9 

44. (,1450 
19. 10797 

.94251 
18.91 150 

2 0.66700 
54.6-1 043 

.56 0 ' 

624.57 01 5 

160% 

16.00000 

75.70219 

16 9.69000 
07 .59124 

47 . 58880 
2.0.44771 

1 .04083 

20.17412 

22.04480 

58.04462 

.565 

667.7/725 
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COMP ITT EE PROCEDURE FOR 
INSIDE COIL LUNDELL DESIGN CALCULATIONS 


1* Clear core (no switch control). 

2. Insert output Form #1 into typewriter, set margin for correct 
output • 

3. Load pass #1 followed by input #1 (output printed plus punched 
cards). 

h* Reset and load pass 02 followed by output from pass #1 (output 
punched cards)# 

5. Reset and load pass #3 followed by output from pass 02 (output 
punched cards)# 

Reset and load pass 0k followed by output from pass #3 (output 
punched cards). 

' * Reset and load pass 0 5 followed by saturation curve values* 
and output from pass 0k (output punched cards). 

3. Reset and load pass 06 followed by output from pass 05 (output 
printed plus punch cards)# 

9. Reset and load pass 01 followed by output from pass 06 (output 
punched cards)# 

10. Reset and load pass #8 followed by saturation curv'e values * 
and output from pass 01 (output punched cards). 

11. Reset and load pass 09 followed by output from pass 08 (output 
printed plus punched cards if no load saturation curve required). 

12. If there is punch card output from pass 09 a no load saturation 
curve is required. Insert output Form 02 into typewriter and reset 
margin. load pass #10 followed by saturation curve values and 
output from pass 09 (output printed). 

* Saturation curvea are loaded in order shown on Input Form #1. 



liJPtJT PARAMETERS I US IDE 


STA7I0UARY COIL 


3.46 

10.0 

5.78 

3.0 

120 . 

12 . 

1360 . 

150 . 

1 .0 

1.1 

1.6 

6.462 

8.475 

2.45 

0 . 

0 . 

.37 

o 

;> . 

77.4 

O 

« 

.040 

0 . 

0 . 

0 . 

.15 

.015 

.335 

0 . 

0 . 

.4 

0 . 

.02 

7 ?-. 

1 . 

. 1 . 

n 

• 

6 . 

1 . 

.15 

1 . 

1 . 

.1 

.25 

.25 

.15 

.185 

60 . 

0 . 

75 . 

.694 

1 .6 

4.55 

5.36 

.022 

.02 

.02 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

.635 

.84 

1.4 

.1 

.8 

2.45 

6.419 

0 . 

7 . 

2 o 

4 . 

0 . 

0 . 

0 . 

0 . 

8.5 

0 “7 o 
.>/•/- 

.7 

.5 

.(> 

4.3 

1.6 

355 . 

12.1 

.0508 

0 . 

75 . 

.694 


1 . 0 . 18.2 
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SATURATION CURVE { STATOR LAi i 


. i 'AT Gil I AL 


13'/’. 

16. 

1 . 

40. 

' » 

(>6. 

5. 

76. 

8. 

85. 

14.5 

102 

101. 

114. 

300. 

13 2 . 

1000. 




SATURATION 

CURVE ( POLE 

MATERIAL ) 


140. 

0 . 

1.6 

10 . 

2.3 

20. 

3.3 

30. 

4.2 

60. 

7.3 

70. 

9.2 

80. 

12.5 

85. 

15. 

90. 

20. 

100. 

40. 

108. 

100. 

112 

160. 

126. 

500. 

140. 

1000. 




SATURAT 1 Oil 

CURVE ( SHAFT 

MATERIAL ) 


140. 

0 . 

1.6 

10. 

9 9 

2 0. 


30. 

4.2 

60 . 

7.3 

70. 

9.2 

80. 

12.5 

85. 

15. 

90. 

20. 

100. 

40. 

108. 

100. 

1 12, 

160. 

1 26 . 

500. 

140. 

1000. 
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ALL INPUT PARAMETERS ARE IN FORMAT F7.0 (FIG. 1) 


1. 

0 0 0 0 0 0 0|0 

I I ) « 3 t ) 

m i n Hi 


22222222 

33333333 

44444444 

55555555 

6E6S6866 

77777777 

88888888 


9 9 9 9 9 9 S|3 

mmr 


10 . 

o e o o o o(o 

I 9 10 II 12 13 
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ALL SATURATION CURVE VALUES ARE IN FORMAT FI 0.0 (FIG. 2) 
(ALL SATURATION CURVES MUST HAVE 5 CARDS) 
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INSIDE- COIL, STATIONARY-COIL LUNDELL 


Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 



A, a 

(128) 

A 

A 

m 

a c 

AC 

(153) 

a cf 

AS 

(68) 

A g 

GA 

ro) 

Ag2 

A2 

(70a) 

A g3 

A3 

(79) 


AP 

(112) 

a s 

AS 



3, b 

(20) 

3 

BK 

(22) 

b o 

BO 

(S4) 

3 C , 

BC1 

(76) 

b pl 

BPi 

(76) 

CM 

BP2 

4 

(95) 

B g> 

BG1 

(122) 

B g2 

BG2 

(118) 

3 g3 

BG3 

(224) 

B g2FL 

BG2L 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(230) 

B g3 FL 

BG3L 

(103) 

B P 

BP 

(213a) 

®P1 

BPL 

(22) 

b s 

BS 

(57a) 

b t 1/3 

SM 

(91) 

b t 

BT1 

(57) 

b tm 

TM 

(15) 

b v 

BV 

(113) 

b SH 

BSH 

(232) 

b shl 

BSHL 


C, c 

(32) 

C 

C 

(71) 

Cl 

Cl 

(74) 

C M 

CM 

(73) 

Cp 

CP 

(75) 

C q 

CQ 

(72) 

C W 

CW 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


_D 

d 

(12) 

D 

DU 

(11) 

d 

DI 

(35) 

d b 

DB 

(78) 

d g2 

DG2 

(78) 

d g3 

DG3 

(78) 

d oc 

DC1 

(Ha) 

d r 

DR 

(78) 

d s 

DS1 


E, 

e 

(3) 

E 

EE 

(55) 

ef top 

ET 

(56) 

ef bot 

EB 

(238) 

e ffl 

EPFL 

(127 b) 

e fnl 

EPNL 

(4) 

e ph 

EP 


f, 

f 

(5a) 

f 

F 

(98) 

E c 

fc 

(236) 

f fl 

ffl 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(96) 

F g 

FG 

(123) 

F g2 

FG2 

(225) 

F g2FL 

FG2L 

(120) 

F g3 

FG3 

(231) 

F g3FL 

FG3L 

(127) 

F NL 

FNL 

(104) 

F P 

FP 

(213c) 

F P1 

FPL 

( 180 ) 

F sc 

FSC 

(97) 


FT 

(133) 

F & W 

WF 

(114) 

f sh 

FSH 

(233) 

f shl 

FSHL 



G 

u ? O 

(59) 

g 

GC 

(59a) 

S2 

G2 * 

(59c) 

S3 

G3 

(69) 

ge 

GE 
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Calculation 

Number 


Electrical 

Symbol 


Fortran 

Symbol 


H, h 


(24) 

h c 

HC 

(38) 

h ST 

SD 

(39) 

h ST 

SH 



I, i 

(237) 

I Ff L 

AIFL 

(127a) 

X FNL 

AINL 

(8) 

X PH 

PI 

(132) 

i 2 r f 

FEL 

(241) 

! 2r FL 

FCUL 

(194) 

i 2 r 

PS 

(245) 

i 2 r s 

SCUL 



K, k 

(19) 

k 

v WL 

(9a) 

K c 

CK . 

(43) 

Kd 

DF 

(63) 

*e 

EK 

(16) 

Ki 

SF 

(44) 


CF 


KJUI5 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(67) 


CC 

(42) 

Ksk 

FS 

(2) 

k va 

VA 

(61) 

% 

FF 


A_ 

1_ 

(13) 

SL 

CL 

(80a) 

k 

AL1 

(81a) 

^2 

A 12 

(82a) 

^3 

AL3 

(76) 

o 

c 

ALCO 

(48) 

4: 

EL 

(36) 

fi e 2 

CE 

(161) 


SI 

(78) 

?g3 

ALG3 

(17) 


SS 

(49) 

St 

HM 

(147) 

^ tf 

FE 

(78) 

fi-SH 

ALSH 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


M, 

m 

(5) 

m 

PN 


2L_ 

n 

(146) 

n f 

PT 

(45) 

n e 

EC 

(30) 

n s 

SC 

(34) 

n st 

SN 

(34a) 

n st 

SN1 

(14) 

n v 

HV 


p , 

P_ 

(6) 

P 

PX 

(S) 

PF 

PF 

(80) 

P 1 

PI 

(81) 

P 2 

P2 

(82) 

? 3 

P3 

(83) 

P 4 

P4 

(84) 

P 5 

P5 

(86) 

P 7 

P7 


Q, q 


(23) 

Q 

QQ 

(25) 

q 

QN 
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Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(154) 

Rf (cold) 

FK 

(155) 

Rf (hot) 

FR 

(7) 

RPM 

RPM 

(53) 

r SPH (cold) 

RG 

(54) 

r SPH (hot) 

RP 


S, s 

(181) 

SCR 

SCR 

(127c) 

s F 

CD 

(47) 

S S 

S 


T, 

t_ 

(177) 

T a 

TA 

(178) 

T d 

T5 

(176) 

^do 

TC 

(76) 

l pl 

TP1 

(76) 

C p2 

TP2 



v 

(145) 

V r 

VR 


w 

, w 

(185) 

w c 

WQ 

(186) 

W NPL 

WN 
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alculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(243) 

W PFL 

WNL 

•242) 

W TFL 

WTFL 

(184) 

W TNL 

WT 


X, x 

(129) 

X 

XR 

(131) 

Xad 

XD 

(132) 

x aq 

XQ 

(133) 

Xd 

XA 

(167) 

*d 

XS 

(168) 

Xd 

XX 

(166) 

X du 

XU 

(160) 

Xp 

XF 

(150) 

Xf "C 

T2 

(130) 


XL 

(169) 

ft 

X 

q 

XY ‘ 

(134) 


XB 

(50) 

o 

O 

TI 

(170) 

X2 

XN 

(172) 

X o 

XO 


KAr-19 



Calculation Electrical Fortran 

Number Symbol Symbol 




(31) 

y 

YY 

(108) 


PG2 

(100) 

01 

PL 

(221) 

0 g2 

PG2L 

(118) 

015 

PL5 

(99) 

01 7 

PL7 

(193a) 

Hi 

PLL 

(223) 

05 L 

PL5L 

(207) 

07L 

PL7L 

(92) 

0 

P 

FQ 

(213) 

0 PL 

FQL 

(102) 

0PT 


(213a) 

0PTL 

PTLL 

(HD 

0 SH 

PSH 

(88) 

0 T 

TG 



r 

(41) 

r P 

TP 

(26) 

Ts 

TS 

(40) 

^SK 

SK 

(27) 

r s 1/3 

TT 
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Calculation Electrical Fortran 


Number 

Symbol 

Symbol 

(64) 

A E 

A. 

EW 

(159) 

Apt 

BE 

(62) 

At 

PC 

(64a) 

A z 

Y> alz 

(151) 

A 

RR 

(152) 

'f* l (hot) 


(51) 

fs 

RS 

(52) 

s (hot) 

OC 

(77) 

(A 

PE 
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c 


PASS 1 I US IDE COIL 


1 FORMAT (Ell .5, El 1.5, El 1.5, El 1.5, Ell. 5, El 1.5) 

2 FORMAT (F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0) 

3 FORMAT ( 9X F12.5.2X F12.5) 

7 READ2,VA,EE,EP,PN,F,PX,RPM,PI ,PF,CK 
READ2,POL,DI,DU,CL,HV,BV,SF,WL,BK,ZZ 
READ2,BO,Bl,B2,B3,BS,HO,HX,HY,HZ,HS 
READ2,HT,HW,QQ,W,RF,SC,YY,C,DW,SN 
READ2,SN1,DW1,DB,CE,SH,SD,PBA,SK,T1,RS 
READ2,ALG3,DG3,DG2,GC,G2,G3,C1,CW,CP,EL 
READ2,CM,C0,PE,BP1,BP2,TP1,TP2,ALP,DR,WR 
READ2,D1,DS1,ALSH,P1,P2,P3,P4,P5,P7,AL1 
READ2,AL2,AL3,DC1 , ALCO, PT ,FE,RD,RT ,T2,RR 
READ2 , S NL , WF , ALZ 
SS=SF*(CL-HV*BV) 

HC=(DU-D I -2.0*HS)*0.5 
QN=QQ/(PX*PN) 

TS=3. 142*01 /QQ 
IF(ZZ-4. 0)9,10,9 

9 TT-(0.667*HS+DI )*3.142/QQ 
GO TO 11 

4 

10 TT=3.l4l6*(DI+2.*H0+1 .32*BS)/QQ 

11 I F (ZZ-1 .0) 12,12,13 

12 BO=BS 

CC=(5.*GC+BS)*TS/((5.*GC+BS)*TS-BS*BS) 

GO TO 14 

13 QC=(4.44*GC+0.75*B0)*TS 
CC=QC/(QC-B0*B0) 


14 CS=YY/(PN*QN) 
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TP=3.1416*DI/PX 
I F (SK) 18, 18, 1 9 

18 FS=1.0 
GO TO 20 

19 FS=S1N(1.571*SK/TP)*TP/(1.571*SK) 

20 IF (PBA-60.)21 ,21,22 

21 D-1.0 

GO TO 95 

22 D-2.0 
95 I *»QN 

U= I 

IF(QN-IJ)23,23,24 

24 U-PX*PN 
XX=U 
N=U 

DO 25 K-1.M 
Z=U/XX 
I =Z 
Z 1 = I 

IF(Z-Z1)26,26,25 

26 ZY=QQ/XX 
I =ZY 

Z 1 = I 

I F (Z Y— Z 1 ) 27, 27, 25 

25 XX»XX-1. 

23 ZY=QN 

27 DF=SIN(.5236*D)/(ZY*D*SI N(.5236/ZY)) 
CF«S I N(YY*. 5236/QN) 

EC=QQ*SC*CF*FS/C 
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GE=CC*GC 

IF(C1)29,28,29 

28 C1=0.649*LOG(PE)+1 .359 

29 IF(CW)30,30,31 

30 CV*=.23566*EE*C1*DF/EP 

31 IF (CP)32, 32,33 

32 CP=PE*(L0G(GC/TP)*. 0378+1 . 1 91 ) 

33 IF(EL)34,34,42 

34 IF(RF)35,35,41 

35 IF(PX-2.0)36,36,37 

36 U=>1 .3 

GO TO 40 

37 IF(PX-4.0)38,38,39 

38 U-1.5 

GO TO 40 

39 U-1.7 

40 EL"3. 142*U*YY*(D I +HS) /QQ+0.5 
GO TO 42 

41 EL=2.0*CE+3.142*(0.5*HX+DB)+YY*TS*TS/SQRT(TS*TS-BS*BS) 

42 AA=1 .57 1*PE 
AB=3.142*PE 
IF(CM)43,43,44 

43 CM=( AB+S IN(AB))/(SIN(AA)*4.) 

44 IF(CQ)45,45,46 

45 CQ«(0.5*C0S(AA)+AB-SIN(AB))/(4.0*SIN(AA)) 

46 RB*= ( T 1 +23 4. 5 ) *0 . 003 94*RS 

PR I NT3,SS,CC,HC,GE,TS,C1,TT,CW,FS,CP,DF,EL,CF,CM,EC,CQ 

PUNCH1,VA,EE,EP,PN,F,PX 

PUNCH 1 ,RPM,PI ,PF f CK,P0L,D I 
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PUNCH 1 ,DU,CL,SS,HC,SF,QN 
PUNCH 1 ,WL,BK,ZZ,BO, Bl , B2 
PUNCH 1 , B3,BS,H0,HX,HY,HZ 
PUNCH 1 ,HS,HT,HW,QQ,W,RF 
PUNCHl ,SC,YY,C,TS,SN,DB 
PUNCH1 ,CE,SH,SD,TT,SK,RB 
PUNCH 1, ALCO.TP.DI ,FE,RD,RT 
PUNCH 1 ,T2,RR,SNL,WF,PE,SN1 
PUNCH 1,DW1 ,BP1,BP2,TP1,TP2,ALP 
PUNCH 1 , DR ,WR, DS 1 , ALSH 
PUNCH 1, PI, P2,P3,P4,P5,P7 
PUNCH 1,RS,GC,PT,C1,CW, CP 
PUNCH1 , EL.Ch, CQ,DW,CC,PBA 
PUNCH 1,GE,CS,CF,FS, EC, DF 
PUNCH 1 , ALG3 , DC 1 , DG3 , DG2 , AL 1 , AL2 
PUNCH 1 , AL3, ALCO, G2 , G3 , AL7. 

PAUSE 

END 
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PASS 2 INSIDE COIL 


1 FORMAT (EH. 5, El 1.5, El 1.5, Ell. 5, El 1.5, El 1.5) 
DIMENSION DA(8),DX(6),DY(8),DZ(8) 

READ1 ,VA,EE,EP,PN,F,PX 
READ1 ,RPM,PI ,PF,CK,POL,DI 
READ1 ,DU,CL,SS,HC,SF,QN 
READ1 ,WL,BK,ZZ,BO,B1,B2 
READ1 ,B3,BS,HO,HX,HY,HZ 
READ1 ,HS,HT,HW,QQ,W,RF 
READ1 ,SC,YY,C,TS,SN,DB 
READl ,CE,SH,SD,TT,SK,RB 
READ1 , ALCO,TP,D1,FE,RD,RT 
READl ,T2,RR,SNL,WF,PE,SN1 
READ1 ,DW1,BP1,BP2,TP1,TP2,ALP 
READ 1,DR,WR,DS1,ALSH 
READ1 ,P1,P2,P3,P4,P5,P7 
READ1 , RS,GC,PT,C1,CW,CP 
READ1 , EL,Ch,CQ,DW,CC,PBA 
READl , GE,CS,CF,FS,EC,DF 
READ 1 ,ALG3,DC1,DG3,DG2,AL1,AL2 
READ 1,AL3,ALCO,G2,G3,ALZ 
DT=DW1 

I F (ZZ-3. 0)49,50,51 

49 SM=TT-BS 
GO TO 53 

50 SM=(3.1416*(DI+2.*HS)/QQ)-B3 
GO TO 53 

51 IF(ZZ-4. 0)50,52, 49 

52 SM=TT-.94*BS 
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53 Hh=CL+EL 

IF(DT) 61,61,62 

61 AO0.7tt5*DW*DW*SN1 
GO TO 72 

62 ZY=0.0 
DA(1)=0.05 
DA(2)=0.072 
DA(3)=0.125 
DA(4)=0. 165 
DA(5)=0.225 
DA(6)=0.438 
DA(7)=0.688 
DA(8)=1 .5 

DX( 1 ) **0.000124 
DX(2)=0. 00021 
DX(3)=0. 00021 
DX(4)=0. 00084 
DX(5)=0. 00189 
DX(6)=0. 00189 
DY(1)=0. 000124 
DY (2)=0. 000124 
DY(3)=0.00084 
DY(4)=0. 00084 
DY(5)=0. 00189 
DY(6)=0. 00335 
DY(7)=0. 00754 
DY(8)=0. 03020 
DZ(1)=0. 000124 
DZ(2)=0. 000124 
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OZ (3) =0.000 124 
0Z(4)=0. 00335 
DZ(5)=0. 00335 
DZ (6)=0. 00754 
DZ(7)“0.0134 
DZ(8)=0.0302 

63 IF(DT-. 05)201, 201, 200 

200 JA=0 
JB=0 
JC=0 
JD=0 

64 JA-JA+1 
JB-JB+1 
JOJC+1 
JD=JD+1 

IF(DT-DA(JA))65,65,64 

201 D=0 
IF(ZY)71, 71,54 

65 IF(DW-0. 188)66,66,67 

66 CY=DX( JB-1 ) 

CZ=DX( JB) 

GO TO 70 

67 IF(DW-0.75)68,68,69 

68 CY*»DY( JC-1 ) 

CZ=DY(JC) 

GO TO 70 

69 CY=DZ ( JD-1 ) 

CZ=DZ ( JD) 

70 D=CY+(CZ-CY)*(DT-DA(JA-1))/(DA(JA)-DA(JA-1)) 


KA-28 



IF(ZY)71, 71,54 
71 AC** ( DT*DW-D ) *S N 1 


72 IF(RT)73,73,74 

73 AS»0.785*RD*RD 
GO TO 55 

74 ZY**1.0 
OT=RT 
DW-RD 

GO TO 63 

54 AS=RT*RD-D 

55 S*=PI /(C*AC) 

CY**PT *FE*0. OOOOOI /AS 
FK**RR*CY 

FR*= ( T 2+23 4 . 5 ) *F K*0 . 003 94 
RC**0.321*PT *FE*AS 
I F(SH) 202, 203,202 

203 ET=1 
EB=1 

GO TO 204 

2 02 AA- 0. 584+ ( S N*S N- 1 . 0 ) *0 . 06 25 * ( SD*CL / ( SH*HH ) ) **2 . 0 
AB= ( SH*SC*F*AC/( BS*RB ) )**2 . 0 
ET**AA*AB*0. 003 35+1 .0 
EB=ET-0.00168*AB 

204 RY**SC*QQ*0. 00000 1 *HM/ ( PN*AC*C*C ) 

RG«*RS*RY 

RP«RB*RY 

A=PI*SC*CF/(C*TS) 

PUNCH 1 ,VA,EE,EP,PN,F,PX 
PUNCH1 ,RPM,P I ,PF,CK,POL,D I 
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PUNCHl ,DU,CL,SS,HC,SF,QU 
PUNCHl ,WL,BK,ZZ,B0,B1 ,B2 
PUNCHl, B3.BS, HO, HX,HY,H7. 

PUNCH1 ,HS,HT,HW,QQ,W,RF 
PUNCHl, SC, YY,C,TS,SN,DB 
PUNCHl ,CE,SH,SD,TT,SK,RB 
PUNCHl, ALC0,TP,D1,FE,RD,RT 
PUNCHl, T2,RR,SNL,WF, PE, SN1 
PUNCHl ,DW1 ,BP1 ,BP2,TP1 ,TP2,ALP 
PUNCHl, DR, WR, DS1 ,ALSH,ALZ 

PUNCHl , PI ,P2,P3,P4,P5,P7 
PUNCHl, RS,GC,PT ,C1 ,CW,CP 
PUNCHl, EL,CM,CQ,DW,CC,PBA 
PUNCHl, GE,CS,CF,FS,EC,DF 
PUNCH 1,ALG3, DC 1,DG3,DG2,AL1,AL2 
PUNCHl , AL3 , ALCO, G2 ,G3 , A 
PUNCHl ,Hh,Sh, AS, AC, ET ,EB 
PUNCH 1,S,FK,FR,RC,RG,RP 
PAUSE 
END 
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PASS 3 INSIDE COIL 


1 FORhAT(E1 1.5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 
READ1 ,VA,EE,EP,PN,F,PX 
READ1 ,RPh,PI ,PF,CK,POL,DI 
READ1 ,DU,CL,SS,HC,SF,QN 
READ1 ,WL,BK,ZZ,BO,B1,B2 
READ1 ,B3,BS,HO,HX,HY,HZ 
READ1 ,HS,HT,HW,QQ,W,RF 
READl ,SC,YY,C,TS,SN,DB 
READ1 ,CE,SH,SD,TT,SK,RB 
READl , ALCO,TP,Dl,FE,RD,RT 
READl ,T2,RR,SNL,WF,PE,SN1 
READl ,DW1,BP1,BP2,TP1,TP2,ALP 
READ 1,DR,WR,DS1,ALSH,ALZ 
READl ,P1,P2,P3,P4,P5,P7 
READl , RS,GC,PT,C1,CW,CP 
READl , EL,Ch,CQ,DW,CC,PBA 
READl # GE,CS,CF,FS,EC,DF 
READl ,ALG3,DC1,DG3,DG2,AL1 ,AL2 
READl ,AL3,ALCO,G2,G3,A 
READ l,Hh,Sh,AS,AC,ET,EB 
READ 1,S,FK,FR,RC,RG,RP 

* 

I F(PBA-60.0) 105,105,108 

105 I F(CS-0.667 >106,106,107 

106 FF=0.25*(6.0*CS-1.0) 

107 FF=0.25*(3.*CS+1.0) 

GO TO 75 

108 I F (CF-O. 667 ) 1 09, 1 09, 1 1 0 

109 FF=0.05*(24.0*CS-1.0) 
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GO TO 75 
110 FF=0.75 

75 CX«FF/(CF*CF*DF*DF) 

Z-CX*20.0/(PN*QN) 

BT=3 . 1 42*0 1 /QQ-BO 
ZA=BT*BT/(16.0*TS*GC) 

ZB=0.35*BT/TS 

ZOHO/BO 

ZD=HX*0.333/BS 

ZE=HY/BS 

I F (ZZ-2.0) 76,77,78 

76 PC=Z*(ZE+ZD+Z A+ZB) 

GO TO 82 

77 PC-Z*(ZC+(2.0*HT/(B0+BS))+(HW/BS)+ZD+ZA+ZB) 

GO TO 82 

78 IF(ZZ-4.0) 79,80,81 

79 PC=Z*(ZC+(2.0*HT / (B0+B1 ) )+(2.0*HW/ (B1+B2) )+(HX*0.333 /B2)+ZA+ZB ) 
GO TO 82 

80 PC=Z*(ZC+0.62) 

GO TO 82 

81 POZ*(ZE+ZD+(0.5*GC/TS)+(0.25*TS/GC)+0.6) 

82 EK*»EL/( 1 0.0**(0. 1 03*YY*TS+0.402) ) 

IF (D 1—8.0) 83,83,84 

83 EK*=SQRT(EK) 

84 ZF«.612*L0G(10.0*CS) 

EW=6.28*EK*ZF*(TP**(0.62-(0.228*L0G(ZF))))/(CL*DF*DF) 

87 ZA=»3. 1416*(D l+HS) /QO 
I F(ZZ-3«0) 88,89,88 

88 TM=ZA-BS 
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GO TO 90 

89 Th= (3 . 1 4 1 6* ( D I +2 . *HS ) /QQ ) -B3 

90 W I - (TM,*QQ*SS*HS+(DU-HC ) *3 . 1 42*HC*SS ) *0 . 283 
IF(WF)445,446,445 

446 WF=2.52E^*(DR**2.5)*ALP*RPh**1 .5 

445 WC=.321*Hh*QO*AC*SC 

PUNCH 1 ,VA,EE,EP,PN,F,PX 
PUNCH1,RPM,PI ,PF,CK,POL,DI 
PUNCH1,DU,CL,SS,HC,SF,QN 
PUNCH 1 ,WL,BK,ZZ,B0,B1 , B2 
PUNCH1,B3,BS,H0,HX,HY,HZ 
PUNCH 1 ,HS,HT,HW,QO,W,RF 
PUNCH1 ,SC, YY,C,TS,SN,DB 
PUNCH 1 ,CE,SH,SD,TT,SK,RB 
PUNCH1, ALC0,TP,D1 ,FE,RD,RT 
PUNCH1 ,T2,RR f SNL,WF,PE,SN1 
PUNCH 1 ,DVV1,BP1,BP2,TP1,TP2,ALP 
PUNCH1 ,DR,WR,DS1 ,ALSH 
PUNCH 1 ,P1 ,P2,P3,P4,P5,P7 
PUNCH1 , RS,GC,PT,C1 ,CW,CP 
PUNCH1 , EL,CM,CO,DW,CC,PBA 
PUNCH1 , GE,CS,CF,FS,EC,DF 
PUNCH 1 , ALG3,DC1 ,DG3,DG2, AL1 , AL2 
PUNCH1 ,AL3,ALCO,G2,G3, A 
PUNCH 1 ,Hh,Sh,AS, AC,ET,EB 
PUNCH1 ,S,FK,FR,RC,RG,RP 
PUNCH 1,FF,CX, PC, EK,EW,Tf1 
PUNCH1 ,WI ,WC,ALZ 
PAUSE 
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C PASS if INSIDE COIL 

1 FORliAT(El 1*5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 
READ1 ,VA,EE,EP f PN,F,PX 
READ1 ,RPlt,PI ,PF,CK,POL,DI 
READ 1 ,DU,CL,SS,HC,SF,QN 
READ1 ,WL,BK,ZZ,BO,B1 p B2 
READ1 p B3 p BS p HO p HX p HY p HZ 
READ1 P HS P HT P HW P QQ P W P RF 
READ1 ,SC,YY,C,TS,SN,DB 
READ1 ,CE,SH,SD,TT,SK,RB 
READ1 , ALCO,TP,Dl p FE p RD p RT 
READ1 p T2,RR,SNL p WF p PE p SN1 
READ1 ,DW1 f BP1,BP2,TP1,TP2 f ALP 
READ 1 ,DR,WR,DS1,ALSH 
READ1 ,P1,P2,P3,P4,P5,P7 
READ1 , RS p GC p PT,C1 p CW p CP 
READ1 , EL,CH,CQ,DW,CC,PBA 
READ1 , GE,CS,CF,FS,EC,DF 
READ 1 ,ALG3,DC1,DG3,DG2,AL1,AL2 
READ1 ,AL3,ALCO,G2,G3,A 
READ1 p Hh p SM p AS p AC p F.T p EB 
READ 1 ,S,FK,FR,RC,RG,RP 
READ1 p FF p CX p PC p EK p EW p TM 
READ 1 P WI P WC P ALZ 
A2=.785if*DG2*DG2 
A3=3.1416*DG3*ALG3 
AP=BP2*TP2 
IF(P1)401,402,4U1 
402 P1=3.19*BP1*TP1/AL1 


tr 


401 I F(P2) 403 ,404,403 

404 P2=1 # 595*(TP1+TP2)*ALP/AL2 
403 I F (P3) 405, 406,405 

406 P3»3.19*((3.*BP1+BP2)/8.)*ALP/AL3 

405 1F(P4) 407,408, 407 

408 Z«=TP-(BP1+BP2)/2. 

p4»(3 . 1 9*ALP/3 • 1 416)*L0G (1.+(BP1+BP2)/Z) 

I F(PX-6. >409,407,407 

409 P4-1.5*P4 

407 I F <P5) 41 0,41 1 ,410 

41 1 P5=(2.505/ALC0)*(DC1**2-DS1**2)*.667 

410 IF (P7 >412,41 3,4 12 
413 P7=2.5*(DU+DR) 

412 TG=6.E6*EE/(CW*EC*RPM) 

BT1=TG/(QQ*SM*SS) 

FQ=TG*CP/PX 
BCl=FQ/(2. *HC*SS) 

BG1=TG/(3.1416*DI*CL) 

FG=BGl*GE/.00319 

WQ= ( DU-HC ) * 1 . 42*HC*SS* ( BC 1 /BK) **2 . 0*WL 
WT= Sh *QQ*SS*HS*0.453*(BT1/BK)**2.0*WL 

132 D2=BG1 **2. 5*0. 000061 

03= ( 0 . 0 1 67 *QQ*RPH) ** 1 .65*0 . 0000 15147 
IF(TS-0. 9)133, 133, 134 

133 D4-TS**1. 285*0. 81 
GO TO 137 

134 lF(TS-2. 0)135, 135, 136 

135 D4=T S** 1 • 1 45*0 .79 
GO TO 137 





136 d4=TS**0.79*0.92 

137 D7=B0/GC 

IF(D7-1. 7)138,138,139 

138 05=07**2.31*0.3 
GO TO 144 

139 I F (07-3. 0)140,140,141 

140 D 5=07**2.0*0.35 
GO TO 144 

141 IF(D7-5. 0)142, 142, 143 

142 D5=D7**1 .4*0.625 
GO TO 144 

143 D5=D7**0. 965*1. 38 

144 D6=10.0**(0.932*C1-1 .606) 

BA=3. 142*0 l*CL 
WN=D1*D2*D3*D4*D5*D6*BA 
PUNCH 1 ,VA,EE,EP,PN,F,PX 
PUNCHl ,RPM,PI ,PF,CK,POL,D I 
PUNCH 1 ,DU,CL,SS,HC,SF,QN 
PUNCHl, WL,BK,ZZ, BO, B1,B2 
PUNCHl ,B3,BS,H0,HX,HY ,HZ 
PUNCHl, HS,HT,HW,QQ,W,RF 
PUNCHl, SC, YY,C,TS,SN,DB 
PUNCHl, CE,SH,SD,TT,SK,RB 
PUNCHl, ALC0,TP,D1,FE,RD,RT 
PUNCHl, T2,RR,SNL,WF, PE, SN1 
PUNCHl, DW1,BP1,BP2,TP1,TP2, ALP 
PUNCHl, OR, WR,DS1,ALSH 
PUNCHl, RS,GC,PT,C1 ,CW,CP 
PUNCHl, EL,CM,CQ,DW,CC, PBA 
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PUNCH1, GE,CS,CF,FS,EC,DF 
PUNCH1,ALG3,DC1,DG3,DG2,AL1 ,AL2 
PUNCH 1 , AL3 , ALCO,G2,G3 , A 
PUNCH1,HM,S|1,AS,AC,ET,EB 
PUNCH 1,S,FK,FR,RC,RG,RP 
PUNCH1 ,FF,CX,PC,EK,EW,Tft 
PUNCH 1 f WI ,WC,WT,WQ,WN 
PUNCHl ,TG,F0,BC1 ,BT1 ,BG1,FG 
PUNCH 1 , P 1 , P2 , P3 , P4, P5 , P7 
PUNCH 1,PX, ALP, A2,G2, A3, G3 
PUNCH1 ,DU,PT,FK, AS, AL7. 

PUNCH 1 ,HC, AP,HS,DS1 , ALSH 

PAUSE 

END 
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C PASS 5 INSIDE COIL 
DIMENSION A I (90) 

1 FORMAT (El 1,5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

888 FORMAT (FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0,F1 0.0) 

K= 1 

823 READ888.AI (K),AI (K+1 ), Al (K+2),AI (K+3),AI (K+4),AI (K+5) 
K=K+6 

IF(K-89)823 t 824,824 

824 DO 825 J=1 ,21 

READ 1,R1,R2,R3,R4,R5,R6 

825 PUNCH 1 ,R1 ,R2 t R3,R4 > R5,R6 
READ1 ,TG,F0,,BC1,BT1,BG1,FG 
READ1 ,P1,P2,P3,P4,P5,P7 
READ1 ,PX,ALP,A2,G2,A3,G3 
READ 1,DU,PT,FK,AS,ALZ 
READ1 ,HC,AP,HS,DS1,ALSH 
L0AD=1 

C0REL=3.1416*(DU-HC)/(4.*PX) 

X=BT 1 
NA= 1 
K=1 

GO TO 802 

806 FT=HS*AT 
X*»BC 1 
K=2 
NA«=1 

GO TO 802 

807 FC=COREL*AT 
FS=FT+FC 
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PL=P X* ( 2 .* ( F G+FT )+FC)*(Pl +P 2+P3+P 4 ) * . 00 1 

PLT=FQ+2.*PL/PX 

BP=PLT/AP 

X=BP 

NA=31 

K=3 

GO TO 802 
808 FP=ALP*AT 

PL7=.OOl*P7*(FC+FT+FG+FP) 

PG2=PLT*PX/2.+PL7 

BG2-PG2/A2 

FG2=BG2*G2/.00319 

BG3=PG2/A3 

FG3=BG3*G3/.0031 9 

PL5=P5*(FG2+2.*(FG+FT+FP)+FC+FG3)*.001 

PSH=PG2+PL5 
ASH= . 785^+*0 S 1 *DS 1 
BSH=PSH/ASH 
X=BSH 

NA=6 1 
GO TO 802 
809 FSH=ALSH*AT 

FNL»2.*(FG+FT)+FC4fSH+FG2+FG3+2.*FP 
A I NL=FNL/PT 
CD=AI NL/AS 
EPNL=AI NL*FK 

PUNCHING, F0_,BC1,BT1,BG1,FG 
PUNCH1 ,P1 ,P2,P3,P4 f P5,P7 
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PUNCH 1 , PX, ALP, A2,G2, A3,G3 
PUNCH1,DU,PT,FK,AS,FG2,FG3 
PUNCH 1 ,HC, AP,HS,DS1 , ALSH,EPNL 
PUNCH1, COREL, ASH,FC,FT, BP, BSH 

PUNCH 1 , PL , PLT , BG2 , BG3 , CD , A I NL 

PUNCH 1,FNL,ALZ 

PAUSE 

802 IF(AI (NA)-X)830,831,831 
831 NA=NA+3 

835 IF(AI (NA)-X)833, 834,834 

833 NA=NA+2 
GO TO 835 

834 AX=A I (NA) 

BB 1 = A I ( NA-2) 

DC=AI (NA+1) 

D=AI ( NA— 1 ) 

XX= (AX-BB1 )/(.4343*(L0G(DC)-L0G(D+.0001))) 
Y=AX-XX*.4343*LOG(DC) 

AT=EXP (2.306* (X-Y) /XX) 

GO TO (838, 83 9), LOAD 
838 GO TO (806, 807, 808,809,81 0),K 
830 GO TO (836, 837), LOAD 
836 PRINT 850, 

850 FORMAT ( 1 7HMACH I NE SATURATED) 

PAUSE 

END 
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C PASS 6 INSIDE COIL 

3 FOR HAT ( 9X F12.5.2X F12.5) 

1 FORMAT (El 1.5, Ell. 5 , Ell. 5, El 1.5, Fit. 5, Ell. 5) 
870 FORMAT (23X F12.5/) 

READ1 ,VA,EE,EP,PN,F,PX 
READ1 , RPI i # P I , PF , CK, POL , D I 
READ1 ,DU,CL,SS,HC,SF,QN 
READ1 ,WL,BK P ZZ P B0,B1,B2 
READ1 ,B3,BS,HO,HX,HY,HZ 
READ1 P HS P HT P HW P QQ P W P RF 
READ1 ,SC,YY,C,TS,SN,DB 
READ1 ,CE,SH,SD,TT,SK,RB 
READ1 , ALCO,TP,l)1,FE,RD,RT 
READ1 p T2 p RR p SNL p WF p PE p SM 
READ1 ,DV/1,BP1,BP2,TP1,TP2,ALP 
READ1 ,DR,WR P DS1,ALSH 
READ1 , RS,GC,PT,C1 p CW,CP 
READ1 , EL,CM,CO,DW,CC,PBA 
READ1 , GE,CS,CF,FS,EC,DF 
READ1 ,ALG3,DC1,DG3,DG2,AL1,AL2 
READ1 ,AL3,ALCO,G2,G3,A 
READ1 ,HM,SM,AS,AC,ET,EB 
READ1 ,S,FK,FR,RC,RG,RP 
READ1 ,FF,CX,PC,EK,EW,TM 
READ1 ,WI P WC P WT P WQ P WN 
READ1 p TG p FQ,BCl,BTl,BGl f FG 
READ1 p P1 p P2 p P3 p P4 p P5,P7 
READ1 f PX,ALP,A2,G2,A3,G3 
READ 1,DU # PT,FK,AS,FG2,FG3 
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READ1 ,HC,AP,HS,DS1,ALSH,EPNL 
READ 1 , COREL, ASH, FC, FT, BP, BSH 
READ1 ,PL,PLT,BG2,BG3,CD,AI NL 
READ 1 ,FNL, ALZ 
XR= . 07 07 *A*DF / ( BG 1 *C 1 ) 

XL=XR*(PC+EW+ALZ) 

XD=90. *EC*P I *Cf1*DF / ( PX* ( 2 . *FG+FG2+FG3 ) ) 
XQ=CQ*XD/(Ch*C1 ) 

XA=XL+XD 

XB=XL+XO 

VR=3 . 1416*DR*RPM/12. 

AG E=G E * ( 2 . *F G+FG 2+F G3 ) / ( 2 . *F G ) 
PEE=PX*(P1+P2+P3+P4)+P5 
ALF=PEE/CL 
ALA=6.38*DI /(PX*AGE) 

XF=XD*( 1 .-( (Cfi/Ct ) /(2.*PX+1 ,273*ALF/ALA) ) ) 

SI=PT*PT*PEE*1.E-8 

XU=XL+XF 

XS=.88*XU 

XX=XS 

XY=XB 

XN=.5*(XX+XY) 

IF(W)414,415,414 
415 X0=0. 

GO TO 422 

414 IF(CS-1.)417, 418,417 
418 AKX-1. 

AKX1-1. 

GO TO 419 
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417 AA=(3.*YY/(PN*QN)) 

AKX=AA-2. 

I F(AA/3.-. 667)420,420,421 

420 AKX1=.75*AA-.25 
GO TO 419 

421 AKX1=.75*AA+.25 

419 ABL=(AKX/(CF**2))*.07*ALA 
XO=AKX* ( ABL+PC ) / AKX 1 

XO=XR*(XO+( 1 ,667*(HX+2 .*HZ ) ) / ( P W*QN*CF**2*DF**2*BS ) +. 2*EW) 

422 TC=S I / (FK) 

PvA=P N*P I *P I *RG / ( VA* 1 000. ) 

TA=XN/(628.3?*F*RA) 

T5=XS*TC/XA 

T4=2./F 

FSC=XA*(2.*FG+FG2+FG3 ) / 1 00. 

SCR=FNL/FSC 

PRINT3,AC,A,S,XR,HI1,XL,RG,XD,RP,XQ,ET,XA,EB f XB,PC,XF,EW,SI ,WC,XU 
PRI NT3.WI ,XS,TP,XX,WR,XY,VR,XN,AS f XO f FK,TC,FR,TA,RC,T5,Pl,T4 
PRINT3,P2,TG,P3,F0.,P4,BGl,P5,BT1,P7,BC1,FSC f FT,SCR f FC 
PRI NT870,FG 

PUNCH1 , BO,GC,PI ,PN,EP,ET 
PUNCH 1 ,EB,SC,C,XB,XD,PF 
PUNCH 1 t EE,XA,RG,WF,WO,WT 
PUNCH 1 t V/N,SNL,POL,RP,FR,FNL 
PUNCH1 ,TG,FQ,BC1 ,BT1 ,BG1 ,FG 
PUNCH 1 ,P1,P2,P3,P4,P5,P7 
PUNCH1 # PX,ALP,A2,G2,A3 > G3 
PUNCH1,[)U,PT,FK,AS,FG2,FG3 
PUNCH 1 # HC,AP,HS # DS1,ALSH,EPNL 
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PUNCH 1 ,COREL,ASH,FC,FT,BP,BSH 

PUNCH 1 ,PL,PLT,BG2,B(j 3,CD, Al NL 

PUNCH1 ,CK 

PAUSE 

END 
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C PASS 7 I US IDE COIL 

DIMENSION GB(4) ,AE(4),DX(4) 

1 FORMAT (El 1.5, El 1 .5, El 1.5, El 1.5, Ell. 5, El 1.5) 
READ1 ,BO,GC,PI ,PN,EP,ET 
READ1 , EB,5C,C,XB,XD,PF 
READ1 ,EE,XA,RG,WF,WQ,WT 
READ1 ,WN,SNL,POL,RP,FR,FNL 
READ1 ,TG,F0_,BC1,BT1,BG1,FG 
READ1 ,P1,P2,P3,P4,P5,P7 
READ1 ,PX,ALP,A2,G2,A3,G3 
READ1 ,DU,PT,FK,AS,FG2,FG3 
READ1 ,HC, AP,HS,DS 1 , ALSH, EPNL 
READ 1 , COREL, ASH, FC, FT ,BP,BSH 
READ1 ,PL,PLT,BG2,BG3,CD,AINL 
READ 1 ,CK 
AXX=BO/GC 

I F(AXX-1.) 964,965,964 
965 AKS C=2.6 
GO TO 957 

964 IF (AXX-3.75)955,955,956 

955 AKSC=1 0.**. 1 76/ ( ( AXX-1 . ) **.334) 

GO TO 957 

956 AKSC=1 0.**. 1 1 / ( (AXX-1 . )**. 174) 

957 XX1=P I *PI *PN 
XX3=3.*EP*PI*PF 
XX2=(ET+EB) /2.-1 . 

XX4«AKSC*PI*SC/(C*FG) 

gb( 1 )=1 . 

GB( 2)*=1 .5 
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GB (3 )=2 . 

GB(4)=P0L 

AN=ATAN(SQRT(1.-PF*PF)/PF) 

AN1=S I II (AN) 

DO 777 K=1,4 
YB=GB(K) 

AA =ATAN((AN1+XB*YB/100.)/PF) 
AE(K)=COS(AA-AN)+XA*SIN(AA)*Yi /I 00. 
777 DX(K)=..93*XD*YB*SIN(AA)/100. 

PUNCH 1,AE(1 ),AE(2),AE(3),AE(4) 

PUNCH 1 ,DX(1),DX(2),DX(3),DX(4) 

P UNCH 1 s BO, G C* P I ,PH, ER, ET 
PUNCHt, EB, SC, C,XB,XD,PF 
PUNCH 1 ,EE,XA,RG,WF,WQ,WT 
PUNCHt ,WN,SNL,POL,RP,FR,FNL 
PUNCH 1 , TG , FQ, BC 1 , BT 1 , BG 1 , FG 
PUNCHl,Pl,P2,P3,P4,P5,P7 
PUNCHt , PX, ALP, A2,G2, A3,G3 
PUNCH1 ,DU,PT,FK,AS,FG2,FG3 
PUNCH 1 ,HC,AP,HS,DS1 ,ALSH,EPNL 
PUNCH 1 ,CORF.L, ASH,FC,FT,BP,BSH 
PUNCH 1 , PL,PLT,BG2,BG3,CD,AI NL 
PUNCH 1 , XXI , XX2,XX3,XX4,CK 
PAUSE 
END 
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C PASS 8 INSIDE COIL 
DIMENSION At (90) 

DIMENSION AE(4),DX(4),BPL(4),PLL(4),BG3L(4),BSHL(4),PTLL(4) 
DIMENSION FFL(4),AIFL(4),CDD(4),EPFL(4),BG2L(4) 

1 F0RMAT(E1 1.5, El 1.5, El 1.5, El 1.5, Ell. 5, El 1.5) 

888 FORMAT (FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0) 

K=1 

823 READ888, Al (K),AI (K+1),AI (K+2),AI (K+3),AI (K+4),AI (K+5) 

K=K+6 

IF(K-89)823,824,824 

824 READ1 ,AE(1),AE(2),AE(3),AE(4) 

READ1 , DX(1),DX(2),DX(3),DX(4) 

READ1 ,BO,GC,PI ,PN,EP,ET 
READ1 , EB,SC,C,XB,XD,PF 
READ1 , EE,XA,RG,WF,WQ,WT 
READ1 ,WN,SNL, POL,RP, FR, FNL 
READ1 ,TG,FQ,BC1,BT1 ,BG1 ,FG 
READ1 ,P1,P2,P3,P4,P5,P7 
READ1 ,PX,ALP,A2,G2,A3,G3 
READ1 ,DU,PT,FK,AS,FG2,FG3 
READ1 ,HC, AP,HS,DS 1 , ALSH, EPNL 
READ1 , COREL, ASH, FC,FT, BP, BSH 
READ1 ,PL,PLT,BG2,BG3,CD,AI NL 
READ 1 , XX 1 ,XX2,XX3,XX4,CK 
L0AD=2 

DO 900 J=1 ,4 
AED=AE( J) 

AA=AED*FG+( 1 .+PF)*FT+FC 
PLL(J)=PL*AA /(FG+FT+FC) 
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I F ( PF— . 95)880,880, 881 

881 PR=FQ*CK 
GO TO 882 

880 PR=FQ*(AED-DX(.J)) 

882 PTLL(J)=PR+(PLL(J)*2./PX) 

X=PTLL(J)/AP 

BPL(J)=X 
NA=3 1 
K=1 

GO TO 802 
841 FPL= AT* ALP 

PL7L=P7*.001*( AA+FPL) 

PG2L=(PTLL(J)*PX/2.)+PL7L 
BG2L( J)*=PG2L/A2 
FG2L=BG2L(J)*G2/.00319 
BG3L(J)=PG2L/A3 
FG3L=BG3L(J)*G3/.00319 

PL5L=P5*.001*(2.*AED*FG+FG2L+FG3L+2.*FT*( 1 ,+PF)+2.*FPL+FC) 

PSHL=PG2L+PL5L 

X= PSHL/ASH 

BSHL( J)=»X 

NA=6 1 

K=2 

GO TO 802 
842 FSHL=»ALSH*AT 

F F L ( J ) =FS HL+FG 2L+FG3 L+2 . *FG*AED+2 . *FT* ( 1 . +PF ) +FC+2 . *F PL 
A I FL ( J)=FFL( J) /PT 
CDD ( J)=AI FL( J) /AS 
900 EPFL(J)=AIFL(J)*FR 
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837 JA=JA/2 


PUNCH 860, JA 

860 FORMAT (13) 

I F ( JA)861 ,867,861 

861 DO 863 J=1 , JA 

PUNCH 1 ,PLL(J) ,PTLL( J) ,BSHL(J) ,BG3L( J) ,BG2L(J) ,BPL(J) 
863 PUNCH 1 ,FFL(J),AIFL(J) ,CDD(J) ,EPFL( J) 

862 PUNCH1,B0,GC,PI ,PN,EP,ET 
PUNCH 1 ,EB,SC,C,XB,XD,PF 
PUNCH1 ,EE,XA,RG,WF,WQ,WT 
PUNCH 1 ,WN,SNL,POL,RP,FR,FNL 
PUNCH 1 ,TG,F0,BC1 ,BT1 ,BG1 ,FG 
PUNCH1,P1 ,P2,P3,P4,P5,P7 
PUNCH 1,PX, ALP, A7,G2, A3, G3 
PUNCH 1 ,DU,PT,FK,AS,FG2,FG3 
PUNCH 1 ,HC, AP,HS,DS1 ,ALSH,EPNL 
PUNCH 1 , COREL, ASH, FC, FT, BP, BSH 
PUNCH1 ,PL,PLT,BG2,BG3,CD, Al NL 
PUNCH1 ,XX1 ,XX2,XX3,XX4 
PAUSE 

802 I F ( Al (NA)-X)830,831,831 
831 NA=NA+3 

835 I F ( Al (NA)-X)833,834,834 

833 NA=NA+2 
GO TO 835 

834 AX=AI(NA) 

BB1=AI (NA-2) 

DC=AI (NA+1) 

D=A I (NA-1) 
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XX= (AX-BBl )/(.4343*(LOG(DC)-LOG(D+.OOOl) )) 
Y= AX-XX* . 4343*L0G ( DC ) 

AT=EXP(2.306*(X-Y)/XX) 

GO TO (838,839), LOAD 

838 GO TO (806, 807, 808, 809,810), K 

839 JA=JA+1 

GO TO (841, 842, 843 ),K 
830 GO TO (836, 837), LOAD 
836 PRINT 850, 

850 FORMAT (1/HhACHINE SATURATED) 

PAUSE 

END 
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c 


PASS 9 INSIDE COIL 

DIMENSION WNL(4),STTL(4),SCUL(4),EDDL(4),T0TL(4),PEFF(4),GB(4) 
DIMENSION BPL(4),BG2L(4),FFL(4),AIFL(4),CDD(4),EPFL(4) , FCUL (4) 
DIMENSION PLL(4),PTLL(4),BG3L(4),BSHL(4) 

961 FORMAT (F11.3,8X F 1 1 .3, F1 1 .3,F 1 1 .3 ,F 1 1 .3) 

860 FORMAT (13) 

1 FORMAT (Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

DO 705 N= 1 , 4 
PLL ( N)=0 
PTLL(N)=0 
BPL ( N)=0 
BG2L ( N)=0 


GB(4)=P0L 
DO 711 K=1,JA 
YB=GB(K) 

FCUL(K)=AIFL(K)**2*FR 
STTL(K)=((.0027*XA*YB)**2*2.+1.)*WT 
WNL ( K) = ( ( XX4*YB ) **2+1 . ) *WN 
SCUL ( K) =XX 1*RP*YB 
EDDL(K)=SCUL(K)*XX2 

TOTL(K)=EDDL(K)+SCUL(K)+WNL(K)+STTL(K)+FCUL(K)+WQ+WF 

711 PEFF(K)=XX3*YB*100./(XX3*YB+T0TL(K)) 

712 IF (POL) 958, 959, 958 

958 PR I NT961,PL,PLL(1),PLL(2),PLL(3),PLL(4) 

PR I NT961,PLT,PTLL(1),PTLL(2),PTLL(3),PTLL(4) 

PR I NT 96 1, BP, BPL (1), BPL (2), BPL (3), BPL (4) 

PR I NT 96 1 , BG2,BG2L ( 1 ) , BG2L(2) , BG2L(3) ,BG2L(4) 
PRINT961,BG3,BG3L(1),BG3L(2),BG3L(3),BG3L(4) 

PR I NT 96 1 , BSH, BSHL (1),BSHL(2),BSHL(3), BSHL (4) 

PR I NT 961 ,FNL,FFL ( 1),FFL(2),FFL(3) ,FFL(4) 



XX= ( AX-B B 1 ) / ( . 43 43* ( LOG ( DC ) -LOG ( D+. OO0 1 ) ) ) 
Y=AX-XX*.4343*L0G(DC) 

AT=EXP(2.306*(X-Y)/XX) 

GO TO (838,83 9), LOAD 

838 GO TO (806, 807, 808,8 09,8 1 0), K 

839 JA=JA+1 

GO TO (841, 842, 843), K 
830 GO TO (836, 837), LOAD 
836 PRINT 850, 

850 FORMAT (r/HMACHINE SATURATED) 

PAUSE 

END 
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c 


PASS 9 INSIDE COIL 

DIMENSION WUL(4),STTL(4),SCUL(4),EDDL(4),T0TL(4),PEFF(4),GB(4) 
DIMENSION BPL(4) ,BG2L(4) ,FFL(4),AIFL(4) ,CDD(4) ,EPFL(4) ,FCUL(4) 
DIMENSION PLL(4) ,PTLL(4),BG3L(4) ,BSHL(4) 

961 FORMAT (F11.3,BX F 1 1 .3, F1 1 .3 ,F 1 1 .3 ,F1 1 .3) 

860 FORMAT (13) 

1 FORMAT (El 1 .5, El 1 .5, El 1 .5, El 1 .5, El 1 .5, El 1 .5) 

DO 705 14-1,4 

PLL ( N)=0 
PTLL(N)=0 
BPL(N)=0 
BG2L ( N)=0 
BSHL(N)=0 
BG3L(N)=0 
FFL(N)=0 


AIFL(N)=0 
CDD ( N) = 0 
EPFL(N)=0 
FCUL(N)=0 
WNL(N)=0 
STTL(N)=0 
SCUL(N)=0 
EDDL(N)=0 
T0TL(N)=0 
705 PEFF ( N)*=0 
READ 860, JA 
IF(JA)702, 703,702 
702 DO 704 J=1 , JA 

READ1 ,PLL(J),PTLL(J),BSHL(J),BG3L(J),BG2L(J),BPL(J) 
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704 RE ADI 

,FFL(J),AIFL(J),CDD(J),EPFL(J) 

703 

READ1 

,B(),GC,PI ,PN,EP,ET 


READ1 

,F.B,SC,C,XB,XD,PF 


READ1 

,EE,XA,RG,WF,WQ,V/T 


READ1 

, WN, S NL , POL , RP , FR , F NL 


READ1 

,TG,FQ,BC1 ,BT1 ,BG1 ,FG 


READ1 

,P1,P2,P3,P4,P5,P7 


READ1 

,PX,ALP,A2,G2,A3,G3 


READ1 

,DIJ,PT,FK,AS,FG2,FG3 


READ1 

,HC, AP,HS,DS1 , ALSH,EPNL 


READ 1 

,COREL,ASH,FC,FT,BP,BSH 


READ1 

,PL,PLT,BG2,BG3,CD,AI NL 


READ1 

,XX1 ,XX2,XX3,XX4 


1 F (SUL) 7 07, 7 06, 707 

707 

PUNCH1 

,TG,F0,BC1,BT1,BG1,FG 


PUNCH1 

,P1,P2,P3,P4,P5,P7 


PUNCH1 

,PX,ALP,A2,G2,A3,G3 


PUNCH1 

, ASH, COREL, HC,AP,HS,ALSH 


PUNCH1 

t* 

O 

e 

% 

m 

m 

706 

FEL=AI NL*AI NL*FK 


T L=F E L+WT +WQ+WN+WF 
ABX=0 

IF(JA)714, 712,714 
714 I F ( JA-4) 708,709,708 

709 IF(P0L)708, 710,708 

710 JA=JA-1 
708 GB ( 1 ) = 1 . 

GB(2)=*1 .5 
GBO)®*?-. 
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GB(4)=P0L 
DO 711 K=1,JA 
YB=GB (K) 

FCUL(K)=AIFL(K)**2*FR 

STTL(K)=( (.0027*XA*YB)**2*2.+1 . )*WT 

WNL(KM(XX4*YB)**2+1.)*WN 

SCUL(K)=XX1*RP*YB 

EDDL (K)=5CUL (K)*XX2 

TOTL ( K) =E[)DL ( K) +SCIJL ( K)+WNL ( K) +STTL (K) +FCUL ( K) +WQ+WF 

711 PEFF (K)=XX3*YB*1 00./ (XX3*YB+T0TL(K) ) 

712 IF (POL) 953, 959, 958 

958 PRINT96l,PL,PLL(1),PLL(2),PLL(3),PLL(4) 

PR I NT96l,PLT,PTLL(1),PTLL(2),PTLL(3),PTLL(4) 

PR I NT96l,BP,BPL(1),BPL(2),BPL(3),BPL(4) 

PRI NT 961 ,BG2,BG2L(1 ) , BG2L(2) , BG2L(3 ) ,BG2L(4) 

PR I NT961,BG3,BG3L(1),BG3L(2),BG3L(3),BG3L(4) 

PRI NT 961 , BSH,BSHL( 1 ) ,BSHL(2) , BSHL(3) ,BSHL(4) 

PRI NT 961 ,FNL,FFL(1 ),FFL(2),FFL(3),FFL(4) 

PRI NT 961, At NL,AIFL(1 ) , Al FL(2) , Al FL(3) ,AIFL(4) 

PRI NT 961, CD, COD (1), COD (2), ODD (3), ODD (4) 

PRI NT96l,EPNL,EPFL(1),EPFL(2),EPFL(3),EPFL(4) 

PRI NT961 ,WQ,WQ,WQ,WQ,WQ 

♦ 

PRI NT 961 ,WT,STTL( 1 ) ,STTL(2) ,STTL(3) ,STTL(4) 

PRI NT961,ABX,SCUL(1),SCUL(2),SCUL(3),SCUL(4) 

PRI NT 961 , ABX, EDDL ( 1 ) , EDDL (2) , EDDL (3 ) , EDDL (4) 

PR I NT 96 1 ,WN,WNL( 1 ) ,V/NL(2) ,WNL(3 ) ,WNL(4) 
PRINT961,FEL,FCUL(1),FCUL(2),FCUL(3),FCUL(4) 

PRI NT961,WF,WF,WF,V/F,WF 

PRI NT96l,TL,T0TL(1),T0TL(2) , TOTL (3) , TOTL (4) 
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PR I NT96l,ABX,PEFF(1),PEFF(2),PEFF(3),PEFF(4) 
PAUSE 

959 PR I NT 961 , PL,PLL( 1 ) , PLL(2) , PLL (3) 

PR I NT961,PLT,PTLL(1),PTLL(2),PTLL(3) 

PR I NT96l,BP,BPL(1),BPL(2),BPL(3) 
PRINT961,BG2,BG2L(1),BG2L(2),BG2L(3) 

PR I NT 96 1 , BG3 , BG3L ( 1 ) , BG3L (2) ,BG3L(3) 

PR I NT 961 ,BSH,BSHL( 1 ) ,BSHL(2) , BSHL(3) 

PR I NT961,FNL,FFL(1),FFL(2),FFL(3) 

PR I UT961,AI NL,AIFL(1),AIFL(2),AIFL(3) 

PR I NT 961 ,CD,COD( 1 ) ,CDD(2) ,CDD(3) 

PR I NT961,EPNL,EPFL(1),EPFL(2),EPFL(3) 

PR I NT 96 1 , WO , WO , WO. , WO 

PRI NT 961 ,WT,STTL( 1 ) ,STTL(2) ,STTL(3) 

PR I NT 96 1 , ABX, SCIJL ( 1 ) , SCUL (2) , SCUL(3) 

PR I NT 96 1 , ABX, F.DDL ( 1 ) , EDDL (2) , EDDL (3) 
PRINT961,WM,WNL(1),WNL(2),WNL(3) 

PRI NT96l,FEL,FCUL(1),FCUL(2),FCUL(3) 

PR I NT 96 1 , WF , WF , WF , WF 

PRI NT96l,TL,TOTL(1),TOTL(2),TOTL(3) 

PRI NT 961 ,ABX,PEFF( 1 ) ,PEFF(2) , PEFF (3) 

PAUSE 

END 
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C PASS 10 INSIDE COIL 
DIMENSION Al(90) 

1 FORMAT (El 1.5, El 1 .5, El 1 .5, El 1 .5, El 1 .5, Ell .5) 

888 FORMAT (F 1 0.0, F 1 0. 0, F 1 0.0, FI 0.0, FI 0.0, F 10.0) 

878 FORMAT (FI 2. 5, FI 2. 5, FI 2. 5, FI 2. 5, FI 2. 5, FI 2. 5) 

879 FORMAT (FI 2. 5, FI 2. 5, FI 2. 5, FI 2. 5, F12. 5, FI 2. 5//) 

K=1 

823 READ888, Al (K),AI (K+1),AI (K+2),AI (K+3),AI (K+4),AI (K+5) 
K=K+6 

IF(K-89)823,824,824 

824 READ1 ,TG,F0,BC1,BT1,BG1,FG 
READ1 ,P1,P2,P3,P4,P5,P7 
READ1 ,PX,ALP,A2,G2,A3,G3 
READ1 , ASH, COREL, HC,AP,HS, ALSH 
READ1 ,DU,EE 

L0AD=1 

YB=.8 

DO 800 14=1 , 9 
NA=-1 

R1=BT1*YB 

R2=FQ*YB 

R3=BC1*YB 

R4=FG*YB 

R5»EE*YB 

X-R1 

NA= 1 

K= 1 

GO TO 802 
806 FT=HS*AT 
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X=R3 

K=2 

NA=1 

GO TO 802 

807 FC=COREL*AT 
FS=FT+FC 

PL-P X* ( 2 . * ( R4+F T ) +FC ) * ( P 1 +P2+P3+P4 ) * . 00 1 

PLT=R2+2.*PL/PX 

3P=PLT/AP 

X=BP 

MA=3 1 

K=3 

GO TO 802 

808 FP=ALP*AT 

P L 7 = . 0 0 1 *P 7 * ( F C+F i +R 4+F P ) 

PG 2-PL.T -P X / 2 . +P1.7 
BG2=PG2/A2 
FG2»BG2*G.2/. 003 19 
BG3=PG2/A3 
FG3=BG3*G3/.00319 

PL5“P5*(FG2+2.*(R4+FT+FP)+FC+FG3)*.001 
PSH=PG2+PL5 
BSH=PSH/ASH 
X=BSH 
K=4 
NA=6 1 
GO TO 802 
809 FSH=ALSH*AT 

F NL= 2 . * ( R4+F T ) +F C+F S H+FG 2+FG3+2 . *F P 


PR| h T87M5,R4,Rl,FT,R3,FC 
PR I NT87 9, PLT , BP, BG2 , BG3 , BSH, FNL 
800 YB=YB+. 1 
PAUSE 

802 I F ( A I ( WA) — X ) 83 0, 83 1 , 83 1 
831 NA=NA+3 

835 IF(AI (NA)-X)833, 834,834 

833 NA=NA+2 
G0 TO 835 

834 AX=AI (NA) 

BB1=AI ( NA-2) 

DC=A I (NA+1 ) 

D=A I ( UA-1 ) 

XX= ( AX-BB 1 ) /( .4343*(L0G (DC)-LOG (D+.0001 ) ) ) 
Y= AX-X X’' r . 43 43*L0G ( DC ) 

AT = E X P ( 2 . 3 06 * ( X- Y ) / X X ) 

GO TO (83 8, 83 9), LOAD 

838 GO TO (806,807,808,809,8 1 0) ,K 

839 JA=JA+1 

GO TO (841, 842), K 
830 GO TO (836, 837), LOAD 

836 PRINT 850, 

850 FORMAT (r/HliACHINE SATURATED) 

PAUSE 

END 
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SECTION LA 


INSIDE, TWO- COIL, STATIONARY- COIL 
LUNDELL A-C GENERATOR 
COMPUTER PROGRAM AND TEST DATA 









VARIABLE 


07 ) {/,) 


(24) (h e ) 


(26) (7;) 


MOO EL „ 


SOLID CORE LENGTH 


DEPTH BELOW SLOT 


SLOT PITCH 


TWO-COIL LUNDELL (BECK Y-ROBINSON 
SUMMARY OF DESIGN CALCULATIONS 

EWO DESIGN NO. 


TYPE) 

- - (OUTPUT) 


(7J 1/3)1 SLOT PITCH 1/3 DIST. UP 


(45) («.) 


(46) (o c ) 


(53) (R ph ) 


(42) (K.k) 


SKEW FACTOR 


DIST. FACTOR 


PITCH FACTOR 


EFF. CONDUCTORS 


COND. ARE y 


CURRENT DENSITY (STA.) 


1/2 MEAN TURN LENGTH 


COLD ST A. RES. # 20® C 


HOT STA. RES. # 20 ® C 


(55) (EF^p) EDDY FACTOR TOP » 


(56) (EFbo* | EDDY FACTOR BOT 


STATOR COND. PERM. 


END PERM. 


WT. OF STA. COPPER 


WT. OF STA. IRON 


POLE PITCH 


WT. OF ROTOR IRON 


PERIPHERAL SPEED 


FLD COND. AREA 


COLD FLD RES. » 20 o c 


HOT FLD RES. « 20® C 


WT. OF FLD. COPPER 


OPEN CIR. TIME CONST. 


ARM TIME CONST. 


TRANS TIME CONST. 


SUB TRANS TIME CONST. 


PERM OF LEAKAGE PATH 1 


PERM OF LEAKAGE PATH 2 


PERM OF LEAKAGE PATH 3 


PERM OF LEAKAGE PATH 4 


PERM OF LEAKAGE PATH 5 


PERM OF LEAKAGE PATH 6 


PERM OF LEAKAGE PATH 7 


PERCENT LOAD 


(®np) (116) N.P. OENSITY 


(B. p ) (105) S.P. DENSITY 


(By2) (125) COIL YOKE DENSITY 


<B y 4) (113) SHAFT DENSITY 


ENSITY 


(F„|) (127) TOTAL Nl 


(62) (At) 


(64) <A«) 


<4i) <r P > 


057) ( - ) 


045) <V r ) 


053) (o c f) 


054) (Rf ) 


055) (Rf ) 


056) ( - 


076) (TJc) 


077) (To) 


078) (T'j) 


079) (T d ) 


(80) (P 1 ) 


(81) <P2) 


82) (P 3 ) 


(83) (P 4 ) 


(84) (P 5 ) 


■n ffHTTHj 


<(Sf) (127c)CUR.DEN. FLD. 


(Efc,|) (127b)FIELD VOLTS 


( W c ) (185) STA CORE LOSS 
<Wml ) (104) STA TOOTH LOSS 


(*dhl> 093) DAMPER LOSS 


(|2RJ (194) STATOR CU LOSS 


I9S) EDDY LOSS < 


<*p„l> 086) POLE FACE LOSS 


(|2R f )(182) FIELD COIL LOSS 


(F8.W) (183) F&W LOSS 


( - ) (196) TOTAL LOSSES 


( - ) ( - ) PERCENT EFF. 




CARTER COEFFICIENT 

(67) 

(K. ) 

EFFECTIVE AIR GAP 

(69) 

(9. ) 

FUND/MAX OF FIELD FLUX 

(71) 

(Cl ) 

WINDING CONST. 

(72) 

<C W ) 

POLE CONST. 

(73) 

(C p ) 

END. EXT. ONE TURN 

icmm 

DEMAGNETIZING FACTOR 

(74) 

<c M ) 

CROSS MAGNETIZING FACTOR 

(75) 

(Cq) 

AMP COND/lN 

(128) 

(A) 

REACTANCE FACTOR 

(129) 

(X) 

LEAKAGE REACTANCE 

(130) 

<X ( ) 

REACTANCE OF J 

(131) 

(X„d> 

ARMATURE REACTION t 

EE9E3VD 

SYN REACT DIRECT AXIS 

(133) 

(X d ) 

SYN REACT QUAD AXIS 

(134) 

(X a ) 

FIELD LEAKAGE REACT 

(160) 

(x*f ) 

FIELD SELF INDUCTANCE 

061) 

<U ) 

DAMPER 

(163) 

(X Dd> 

LEAKAGE REACTANCES 

065) 

(X Dq) 

UNSAT. TRANS. REACT 

(166) 

(X*du) 

SAT. TRANS. REACT 

067) 

(X'd) 

SUB. TRANSREACT DIRECT AX. 

068) 

(X”d ) 

SUB. TRANS REACT QUAD AX. 

069) 

<x”„) 

NEC. SEQUENCE REACT 


ZERO SEQUENCE REACT 

072) 

(Xo ) ] 

TOTAL FLUX 


FLUX PER POLE 

(93) 

<^») 

GAP DENSITY (MAIN) 

(95) 

(B * g ) 

TOOTH DENSITY 


CORE DENSITY 

(94) 

(B’c) 

TOOTH AMPERE TURNS 

(97) 

(F‘t > 

CORE AMPERE TURNS 

(98) 

(F’c) 

GAP AMPERE TURNS (MAIN) 


SHORT CIR Nl 

fSSBSSl 

SHORT AIR RATIO 

RBKK53I 



("dll > 

(244) 

<|2 R. 

) (245) 

(-) 

(246) 

<"pfl > 

(243) 

(1 2 R, 

) (241) 

(F&W) 

(183) 

(- ) 

(247) 

( - ) 

(251) 



MAGNETIZATION | REACTANCE I CONSTANTS 























































































































































































TWO-COIL LUNDELL (BECKY-ROBINSON TYPE) 


COMPUTER DESIGN (INPUT) 

MODEL EWO DESIGN NOO) 


PERMEANCE | 

(80) 

P 1 

PERM OF LEAKAGE PATH 1 

C 

(81) 

P2 

PERM OF LEAKAGE PATH 2 

n 

(82) 

pj 

PERM OF LEAKAGE PATH 3 

c 

(83) 

P4 

PERM OF LEAKAGE PATH 4 

t 

(84) 

P 5 

PERM OF LEAKAGE PATH 5 

C 

(85) 

P« 

PERM OF LEAKAGE PATH 6 

0 

(86) 

P 7 

PERM OF LEAKAGE PATH 7 

c 

(80o) 


LENGTH OF LEAKAGE PATH 1 

/, 1 ? 

(81a) 

% 2 

LENGTH OF LEAKAGE PATH 2 


(85) 

*6 

LENGTH OF LEAKAGE PATH 6 

1 *■ t 

i - ^ 

(84) 


LENGTH OF LEAKAGE ACROSS COIL 

T24~ 

ROTOR DIMENSIONS 

(78) 

dir 

INSIDE DIA OF ROTOR TUBE 

3.L 

(78) 

d <» 

INSIDE DIA OF HOLLOW SHAFT 

LL 

(78) 


HEIGHT OF COIL YOKE 

I.Xh 

(78) 

dr 

LENGTH OF COIL TOKE 

, 1L 

(78) 


LENGTH OF ROTOR SKIRT 

1L 

(78) 

L- 

EFFECTIVE LENGTH OF SHAFT 

l.<£ 

(78) 

V 

HORIZONTAL LENGTH OF GAP g2 

71 

(78) 

■J*E . 

THICKNESS OF SOUTH POLE 

K 

A 79 ) 

V 

THICKNESS OF ROTOR SKIRT 



GAP g3 DIMENSIONS 

(78) 


TAPERED GAP DIMENSIONS 

c 

(78) 

d .i 


c 

(78) 

d s1 


122 

(78) 

d *2 


i.Ql 

(78) 

d *3 

STEPPED GAP DIMENSIONS 

2 . s'f 

(78) 

d M 


c 

(78) 

d *5 


C 

(78) 

Li 


b 7 

(78) 

®*2 


i-w.^ / 

.£S"/ 

(78) 

2*3 

STEPPED GAP HORIZONTAL LENGTHS 

.L *2 7 

(78) 

2*4 


1 / — 

C 

(78) 

2*5 


c 

(78) 

d r» 

EFFECTIVE SHAFT O.D. 

3 (L 


-12-41) 

W PHR 

POLE FACE HARMONIC LOSS 

c 

(244) 


DAMPER BAR HARMONIC LOSS 

C 

(U7> 


rotor mm 

o 

MATERIAL 

(18) 


STATOR LAM. MTR'L 

CtL'lL'C 

(18) 


SOUTH POLE, TUBE & SKIRT 

>L 

(18) 


NORTH POLE, SPIDER & SHAFT 

is 

(18) 


COIL YOKE 

































' ■ 

. 



LA-2 


PG 2 
REV. 


i 


OF 2 
A 


(6) Open Slots (b)Constont Slot Width 


TYPE 1 

(Type 5 is an open 
slot with 1 conductor 
per slot) 


•~r°r 


M 

L_ 

i 

i 

] 


hi t — 

LA 


b s 




4 ftp 

5ZH 

1 hZ 


F— b » — I 


TYPE 


2 



b g for type 3 is 



INPUT PARAMETERS FOR BECKEY ROBINSON DESIGN 


1 NPUT 

1 









30. 

211. 

121. 

3. 

400. 

8. 

6000. 

82.5 

.75 

1. 

O 

• 

o 

7.060 

9.150 

2.6 

0.0 

0.0 

.92 

15. 

77. 

2. 

.03 

.117 

0.0 

0.0 

.117 

.030 

.400 

0.0 

.00 

.500 

O 

o 

o 

.038 

108.0 

1. 

1. 

2. 

9. 

1. 

.19 

1.0 

1. 

.063 

.25 

.25 

.190 

0. 

60. 

.001 

285. 

.694 

1 .0 

.030 

.01 

.015 

1.095 

.43 

.678 

4.15 

.855 

.42 

.658 

1.45 

2.20 

2.20 

1.45 

2.4 

2.4 

7.0 

1.92 

7. 

.030 

.030 

.050 

.170 

.05 

5. 

5.65 

.28 

.694 

285. 

6.87 

.0396 

170. 

13.5 

1.125 

.006 

315. 

1.15 

0. 

0. 

1 NPUT 

2 









0. 

0. 

0. 

0. 

0. 

0. 

0. 

1.18 

.87 

1.2 

1 .24 

5.6 

.66 

1.24 

.76 

.76 

1.5 

.76 

.8 

.8 

0. 

0. 

1.22 

1.9 

2.54 

0. 

0. 

.657 

.657 

.657 

0. 

0. 

3.16 

0. 

0. 

0. 







SATURAT 1 ON 

CURVE ( 

STATOR 

MATERIAL 

) 



140. 

10. 


1. 

38. 


1.9 

59. 



3.8 

75. 


7.6 

86. 


16. 

93. 



35. 

100 

• 

90. 

107 

• 

160. 

118. 



23 0. 

140 

• 

950. 









SATURATION 

CURVE ( 

SOUTH 

POLE, TUBE + SKIRT MATERIAL 

143. 

0. 


3.3 

55. 


12.0 

80. 



24.0 

95. 


40.0 

log 

>. 

72.0 

135. 




143. 500. 


300.0 


LA- 2b 



SATURATION CURVE ( NORTH POLE, SPIDER + SHAFT MATERIAL ) 



150. 

0 . 

3. 

34. 

10 . 

• 

LA 



16. 

85. 

24. 

103. 

35. 

125. 


70. 

137. 

130. 

145. 

260. 

148. 

' — 

600. 

150. 

1500. 




■ 



SATURATION 

CURVE ( COIL 

YOKE MATERIAL ) 

— 

150. 

0 . 

3. 

34. 

10 . 

57. 


16. 

85. 

24. 

103. 

35. 

125. 


70. 

137. 

130. 

145. 

260. 

148. 


600. 

150. 

1500. 
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TWO-COiL LUNDELL (BECKY -ROBIN SON TYPE) 



MOO 

► EL _ 

/r/ ^ /,, , C0 ^ P UTE R DESIGN (INPUT) 

- .'two' 1 DFSIGNNOm 

PARAMETERS 

(2) 

KVA 

GENERATOR KVA 

IM 

i am 

FUND/MAX OF FIELD FLUX 

(71) 

CM 

2 

i 

! 

i 

i 

\ 

(3) 

E 

LINE VOLTS 

im 


WINDING CONSTANT 

(72) 

1 

1 

(4) 

E p h 

PHASE VOLTS 

. _JJU 

— Jii 

POLE CONSTANT 

(73) 

1 

E 

(5) 

m 

PHASES 

-? 

IBB M 

END EXTENSION ONE TURN 

(48) 

HI 

h 

(5a) 

I 

frequency 

. ‘-.b C 

xmmm 

DEMAGNETIZATION FACTOR 

(74) 

El 

r 

(6) 

P 

POLES 

? 

I M 

CROSS MAGNETIZING FACTOR 

(75) 

1 

b 

(7) 

RPM 

RPM 

PH 

mam a 

POLE EMBRACE 

(77) 


il 

(8) 

l ph 

PHASE CURRENT 

B99 


WIDTH OF NORTH POLE (END) 

(76) 


POLE 

(9) 

ID m 

POWER FACTOR 

—a 

■■■BBS 

WIDTH OF SOUTH POLE (END) 


imumu 

(9o) 

IDU 

ADJ. FACTOR 

■m 

BB3B9B 

WIDTH OF NORTH POLE (MID) 



mm 

■ 

OPTIONAL LOAD POINT 


B^H 

WIDTH OF SOUTH POLE (MID) 

(76) 


STATOR STACK 

(11) 

d 

STATOR I.D. 

in«a 

mmm 

— — — 1 

LENGTH OF NORTH POLE 

(76) 

OB 

(12) 

D 

STATOR O.D. 

BEWEa 


LENGTH OF SOUTH POLE 

(76) 

liB 


JL 

CROSS CORE LENGTH 

mmm 

SRVflHI 

ROTOR DIAMETER 

(llo) 

— 


n v 

NO. OF DUCTS 

n 


HEIGHT OF NORTH POLE 

(7B> 

na 

litm 

b v 

WIDTH OF DUCT 

c 

2 r 

POLE FACE LOSS FACTOR 

m 

I&jia25 

1 JM 

(16) 

Ki 

STACKING FACTOR (STATOR) 


,0'lu 

WIDTH OF SLOT OPENING 

^(135) 

; 1 

DAMPER BAR 

< 

(19) 

k 


msrm 

bum 

HEIGHT OF SLOT OPENING 


iPii 

(20) 

B 


... Z 7 

dl<L 

DAMPER BAR DIA. OR WIDTH 


IBI 

STATOR SLOT 

(21) 


TYPE OF SLOT 

2. 

.... '7c 

RECTANGULAR BAR THICKNESS 

(137) 




SLOT OPENING 

lZ3L 1 

. c r 

rectangular slot width 

(135) 

OB 

is5 

m 

SLOT WIDTH TOP 

i!M 

-S.c 

NO. OF DAMPER BARS/POLE 

038) 

1 


BBI 


c 

S'. i 5* 

DAMPER BAR LENGTH 

(139) 

El 

(22) 

M 


c 



DAMPER BAR PITCH 

(140) 

HM 

(22) 

1 

SLOT WIOTH 

HDKH 

1111111 

RESISTIVITY of DAMP. BAR 8 20° 


1 

(22) 

n 


ww 

HI 

DAMPER BAR TEMP °C 



(22) 



WBSBM 

■111 

DAMPER BAR END RING MEAN DIA. 

(170) 

1 

(22) 

■ 


c 

B» 

DAMPER BAR END RING AREA 

(170) 

BIB 

(22) 

SB 


i 

B1I 

NO. OF FIELD TURNS/COIL 

046) 


FIELD 


(22) 

DH 

SLOT DEPTH 

.Sa 


MEAN LENGTH OF FLD. TURN 

(147) 

n 

(22) 

MB 


C 

_ t . ( 2 i r 

FLD. COND. DIA. OR WIDTH 

(148) 


(22) 

B 

HbHhMHHI! 

mmm 

. ai 

FLD, COND. THICKNESS 

(149) 

— 

(23) 

EH 


mmm 


FLD. TEMP IN°C { 

[150 



(28) 

— 

TYPE OF WDG. 

n| 

/. i «r 

RESISTIVITY OF FIEL D COND# 20° 

[151) 


(29) 


TYPE OF COIL 

mmm 

r 

NO LOAD SAT. 

(87) 




(30) 

(31) 


COMDUCTORS/SLOT 

mmm 

O 

FRICTION & WINDAGE \ 

[183) 

(F&W) 


(32) 

c 

PARALLEL CIRCUITS 

z_.. 

/ 

STATOR SLOT 

I 

i 


O 

wm\ 


STRAND DIA. OR WIDTH 

■be SB 

POLE 

Z 

S 

(34) 

Nst 

STRANDS/CONDUCTOR IN DEPTH 


z 

5 

(34.) 


STRANDS/CONDUCTOR 

, — 

QC 

(39) | 

■ 

STATOR STRAND T*KNS. 

■ 

H 

< 

(35) 

MB 

DIA. OF PIN 


►- 

(36) 


COIL EXT. STR. PORT 

2* 

DAMPER SLOT 

REMARKS 


mm\ 


UNINS. STRD. HT. 

mm 


[38) 

DBA 

DIST. BTWN.ClOF STD. 



[42a) 



PHASE BELT ANGLE 

// 


[40) 

ezbi 

STATOR SLOT SKEW 

/ 



EB3I 

STATOR TEMP °C 

mmm 


391 

□Bl 

RESISTIVITY STA. COND. « 20 °C 

wm&m 

0. 

SS9I 


TYPE OF GAP *3 

! 

/ / 



o 

59) 

9 

MAIN AIR GAP 

.t*L 

UOI^NtK DATE 

PC. 1 OP 2 

1 

59a) 

9£ 

AUX GAP 

c / 


59f) 

iuA 

EFFECTIVE 93 



LA- ? 


REV. A 


I 



































































































































TWO- COIL LUNDELL (BECKY- ROBINSON TYPE) 
NO LOAD SATURATION OUTPUT SHEET 



(3) (E) 
Volts 

(95) Bg Density 
Main gap 

' (122) B g2 

Density g2 

(H9) B g3 
Density g3 

(94) B t Density 
Stator core 

(91) Bp Density 
Stator tooth 


(125) By2 
Coil yoke 

(105) Bgp 
Density S . P. 

(116) Bj^p 

Density N. P. 

(113) By 4 
Shaft density 

(93) 0 p 
Flux per pole 

(127) F nl 
T otal NI 

0% 

168.00000 
57. 1^238 

36.53 040 
60.21276 

32.42266 

49.21551 

23.54603 

56.70554 

68.47527 

178.53424 

83. 13275 
1015.92030 

y% 

100.90000 
64.653 03 

41.10230 

60.09763 

36.60989 

55.60427 

26.64086 

64.22996 

77.04533 

200.87879 

93.53727 

1173.37650 

_J)% 

211.00000 

73.11561 

45.60795 

76.91285 

41.51155 

62.97291 

30.12794 

72.57350 

85.64086 

223.20973 

103.97271 

1406.94120 

TTo% 

232. 10000 
81.91592 

50.27706 

86.05598 

46.53098 

70.55242 

33.75419 

81.23396 

94.24453 

245.72192 

1 14.41804 
16 70.84 960 

120% 

253.20000 

92.06159 

54.09966 

97.29131 

52.803 04 
79.97969 

38.26445 

91.91632 

102.90799 

268.30995 

124.93594 

2115.06860 

i * n 

274.30000 

106.53195 

59.55706 
111. 16922 

60.67270 

91.75368 

43.09744 

105.15264 

111.63966 

291.07587 

135.53667 

2810.30000 

i n 

1ACHINE SATUf 

:ATED 





l i% 







150% 






— j 

i 

! 

i 

































SATURATION CURVE VALUES (STATOR) 


140 . 

10 . 

1 . 

38 . 

1.9 

59 . 

3.8 

75 . 

7.6 

86 . 

16 . 

93 . 

35 . 

100 . 

90 . 

107 . 

160 . 

118 . 

230 . 

140 . 

950 . 





SATURATION 

CURVE 

VALUES (NORTH 

POLE AND 

SHAFT) 

143 . 

0 . 

3.3 

55 . 

12.0 

80 . 

24.0 

95 . 

40.0 

109 . 

72.0 

135 . 

300.0 

143 . 

500 . 





SATURATION 

CURVE 

VALUES (SOUTH 

POLE AND 

TUBE) 

150 . 

0 . 

3 . 

34 . 

10 . 

57 . 

16 . 

85 . 

24 . 

103 . 

35 . 

125 . 

70 . 

137 . 

130 . 

145 . 

260 . 

148 . 

600 . 

150 . 

1500 

• 




SATURATION 

CURVE 

VALUES (YOKE) 



150 . 

0 . 

3 . 

34 . 

10 . 

57 . 

16 . 

85 . 

24 . 

103 . 

35 . 

125 . 

70 . 

137 . 

130 . 

145 . 

260 . 

148 . 

600 . 

150 . 

1500 

• 






l 







OOQLING PROPERTIES OF STOVEPIPE UNIT AT SEA. LEVEL 


1 

Run No. 

i 

2 

3 

1 

T 

5 

r 

1 

6 

7 

8 

9 

i° | 

KVA 

Speed - RB4 

Avg. Phase Voltage 

Avg. Line Current - Amp a 

Avg. Phase Power — Kilowatts 

Avg. Power Factor - % 

Field Current - Amps 
Drive End Field Voltage # 

Anti-Drive End Field Voltage 

Field Power - Watts 

Avg. Drive End Field Temp. - °F 

Avg. Anti-Drive End Fid. Temp* - °F 

Drive Ehd Bearing Temp* - °F 

Anti-Drive End Bearing Temp. - °F 

Frame Temp. - °F 

Pad Temp. - °F o 

Avg. Stator Drive End Temp.- F 

Avg. Stator Anti-Drive End Terap.-°F 

Avg. Stator Slot Temp. - °F 

Ambient Temperature - °F 

Air-In Temp. - °F 

Air-Out Temp. - °F 

Air Upstream Temp. - °F 

stream Pressure - In. of Hg 
i ressure Drop Across Orifice — 
Inches of H^O 

Pressure Drop Across Qenerator — 
Inches of HjO 

Mass Flow through Gen .-Lbs. per Min 
Condition 

1 — 

15 

6000 
121.5 : 

hO. 8 
3.7h 
75. U 

13.0 

8.6 

7.6 

210 

237 

139 

179 

130 

152 

1U5 

189 

167 

80 

87 

lh3 

83 

3.70 

.75 

.85 

h.90 

Stab. 

30 
6000 
L21.9 : 

82.e 

7.U8 
7h.2 
19.9 
18. h 
16.1 
686 
U86 
' 3h0 
281 
192 
23 h 
223 
338 
291 

109 

91 

218 

83 

3.70 

.80 

.90 

5.05 

Stab. 

10 
6000 
L21.9 : 
27. U 
2.52 
75.7 
11.6 
8.8 
8.9 
205 
329 
302 
2U8 

218 

203 

310 

293 

313 

76 

2U1 

21U 

315 

3.75 

1.30 

.80 

5.35 

Stab. 

20 

6000 
121.9 : 
5h.8 
5.02 

75.2 
15.6 

111. 2 
lli.O 

hho 

U72 

U20 

319 

252 
252 
h0 2 
369 
hl9 
76 
2U7 
2U7 

320 i 
3.75! 

1.30 

.80 

5.32 

Stab. 

25 

6000 
L21.9 1 
69.6 
6.28 
73.9 
lf.h 
19.1 
18.5 
692 
593 
516 
355 

27h 

277 

UU8 

Ul9 

507 

82 

252 

265 

322 

3.70 

1.30 

.80 

5.30 
Stab. 

30 
6000 
L21.9 : 
82.2 
7.56 
75. h 
21.0 
21.6 
21.1 
896 
583 
516 
33 U 

26h 

258 

hhl 

U22 

519 

79 

252 

260 

320 

3.75 

1.30 

.80 

5.32 

Not 

Stab. 

. 

10 

6000 
L21.9 1 

27.6 
2.50 
7h.5 

11.6 
8.7 
8.9 
20h 
320 
302 
2h9 

217 

207 

298 

280 

301 

90 

2U0 

305 

291 

3.70 

3. UO 

2.00 

8.60 

Stab. 

20 

6000 
L21.9 1 
5h.8 
5.00 
7h .6 
15.6 
13. h 
13.2 
hl5 
h2h 
37h 
289 

232 

232 

353 

32h 

362 

90 

2hl 

22U 

292 

3.70 

3.U0 

2.00 

8.80 

Stab, 

25 ’ 
6000 
L21.9 ] 
69.0 
6.26 
7h.6 
18.0 
17. U 
16.7 
6lh 
525 
hh7 
323 

2U8 
253 
hO 2 
36h 
Ul9 
89 
2hh 
237 
293 
3.70 

3.25 

2.00 

8.55 

Stab. 

3C 
600C 
L21.9 | 
82.2 1 
7.W 
7h .7 _ 
20.5! 

21.7 1 
20. < 

86t . 
613 
516 
3h 

259 

26 

hh 

39fcT 

h77 

9 

2h 

2h6 

296 

3.7 

3.25 

2.0 

8.5. 

Not 
St at 
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SHORT CIRCUIT LOSSES 75. LOAD CVRRBNT SQUAB 3) 




0S 





FRICTION, WINDAGE AND CORE LOSSES 
AS DFTER.MINED BY THE RETARDATION METHOD 

77 

Loss in watts = ^ s ^ 

Wr 2 ■ Rotor moment of inertia in lb, ft, 2 
S = Speed in RPM 
ds 

- Rate of retardation in RPM per min, 

1. ) Friction & Windage Losses 

P * 17(1.801) (6000) (17551 = lli6 watts 
10 7 

2. ) Friction, Windage and Core Loss At No Load 

P , 77(1,001)^(6000) (10030) . 

3. ) Core Loss 

P - 8i*5> - llio • 699 Watts 


LA-11 










Zo = jgg. .£l jfH 

? ±L Eph 

X 2 = Zp cos 0 


NEQATIVE SEQUENCE IMPEDANCE 


cos 0 = j" ■■■»- 

e L il 


R 2 = Z 2 sin 0 


Z 2 = Percent Negative Sequence Impedance 
X 2 = Percent Negative Sequence Reactance 
R2 = Percent Negative Sequence Resistance 

Ej. = Line to Line Voltage Between the Two Shorted Phases and the One Open Phase 
II = Line Current Between the Two Shorted Phases 
Eph = Rated Phase Voltage 
IpH = Rated Phase Current 

W = Power with Two Phases Shorted and One Phase Open 


1. Negative Sequence Impedance with 120° Phase Belt Stator 

7. = 100 O 5 . 3 )( 62 . 5 ) = 01 M C03 0 = 3U80 


x? = 21.8 (.930) = 20.356 


= .930 


R2 = 21. 8( .369) = 8. Oh* 


2 m Nerative Sequence Impedance with 60° Phase Belt Stator 


_ 100 (U6.5) (82.5) = 00 i.< 

T^.6)Ti2bf 22 - h% 

x 2 = 22. h ( .932) = 20.9* 


cos 0 = 


= .932 


R2 = 2 2.U (.362) = 8.10* 


LA-13 



FSF.CEWT liArt-ioliiC 0 >U TSOT 

120° PHASE BET ,T STA7 jK arfHut'T PEC F I A TO^~XttD STATIC EXCITER 


I 

f 


B A I» A N C 

H D TOAD C 0 N D I 

“ ■ ■ 1 
t i j n ; 

! 

i 

Harmonic 

No load 

hi. 3 Amps, 100$ PF 

62.5 Arnps , 1002 PF 

! 


Percent Voltaire 

Percent Voltage 

Percent Voltage j 

— ' 


JL - J ^ 




L-N 

L-N 

L-N | 

— 

i 

100 

100 

1 

f 

100 j 


2 

.Oh 

.6 

1.3 


3 

.015 

.06 

.13 ! 

— 

h 

.16 

•3h 

.36 


5 

1.1 

.67 

.35 


6 

0 

0 

o ! 


7 

.33 

.22 

.lh | 


B 

.53 

.37 

.19 i 


j 

0 

0 

o ! 


TO 

.07 

.09 

.06 | 


11 

0 

0 

0 i 


12 

0 

0 

o f 


13 

.05 

0 

0 ! 

— 

lh 

.ih 

.0? 

o i 


15 

0 

0 

0 i 


16 

.03 

0 

0 j 


17 

0 

.08 

.03 ! 


! 18 

0 

0 

0 ! 


19 

.15 

.11 

.10 

i 

! 

20 

.02 

0 

0 

— | 

21 

0 

0 

0 


I 22 

.025 

.01 

o ! 

1 

i 23 

! .Oh 

.06 

.07 ! 


; 2h ! 

1 o : 

0 

o ! 


! 25 ! 

.0? ; 

.05 

.06 ! 


i 26 

.22 S 

.10 

.05 } 


! 27 j 

0 

0 

0 1 

— 

28 

.12 i 

.02 

.12 ; 


! 29 

; o j 

0 

.02 1 


i 30 

! 0 

0 

o ! 


1 31 

.03 

.0? 

.03 ; 

— 

32 

.02 

0 

0 ! 


LA-14 





LA- 16 
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TRANSIENT AND SUB TRANSIENT REACTANCES AND TTT.fE CONS TA NTS 


Total Averages of Four Tests; 


*d s 5h»12% T(j* m ,0620 seconds 


Xd" c 26.52% Td" s .OOllli seconds 


Total Averages of Three Tests; 


" *120 seconds with average field temperature 

at 355 °F 
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COMFIjrSR JttOCSOlMS FOR 
BECKY ROhlRSOR DELINK C ALfRiLAiTONo 


lo Clear core (no switch control). 

2. Insert output from § 1 into typewriter, set margin for correct 
output and set typewriter for single space. 

3. Load pass # 1 followed by input § 1 (output both printed and punched 
cards ) • 

U o Reset and load pass #2 followed by output from pass #1 (output 
punched cards). 

5* Reset and load pass #3 followed by output from pass #2 (output 
punched cards). 

6. Reset and load pass followed by input #2 and output from pass #3 
(output punched cards). 

7* Reset and load pass #5 followed by output from pass (output 
punched cards). 

8. Reset and load pass #6 followed by saturation curve values* and 
output #5 (output punched cards). 

9. Reset and load pass #7 followed by output from pass #6 (output 
printed plus punched cards). 

10* Reset and load pass #8 followed by output from pass #7 (output 
punched cards). 

11. Reset and load pass #9 followed by output from pass #3 (output 
printed plus punched cards). 

12. Reset and load pass #10 followed by output from pass #9 (output 
punched cards). 


LA-21 



- 2 - 


13 « Reset and load pass #11 followed by saturation curve values* and 

output from pass #10 (output punched cards)* 
liio Reset and load pass #12 followed by output pass #11 (output 
printed and punched cards)# 

IS. If there is punch card output from pass #12 no load saturation 
curve is required* Place output form #2 in typewriter and set 

t . jg- 

margin# lioad pass #13 followed by saturation cur v e values and 
output from apss #12 (output printed) e 

Saturation curve values are loaded in order shown on Input Form #1# 


iA-22 



All Input Parameters are in Format F7.0 (Fig. 1) 


i. 

oooooo 

i : 3 4 s « 

1 1 ii i nil 


- 

0(0 0 0 0 0 0 

I t 10 n T2 a J 


/ 00 * 

0(0 0 0 0 0 s ojo 

s » n ii n it 


1 1 1 1 1 1 ( 1 1 1 1 1 1 ifl 

2 2 2 2 2 2 2|2 2 2 2 2 2 3(2 2 2 2 2 2 2|2 

3 3 3 3 3 J3|3 J 3 3 3 3 3|3 3 3 3 J3 3|3 
444444 4|4 44444 4)4 44444 4* 
5555555|5555555|5555555/5 
6666666 ) 6666686 ( 6666686(6 


777777717777777(777777717 

iimi(iniii(siim(i 


9999999999999S| 

t I 1 4 1 6 if 


00000 do 0 0 0 0 0 q 

Tin » ?4 75 7% n J?t 35 J 1 J 2 23 34 


I I 10 n 17 u 4 15 M 17 11 19 2 t> H 

**5081 J 


dfll 


*1 


1 1 II 1 1 I 1 lit 1 
222222222222 2|2 
33333333333333 
44444444444444 
55555555555555 
66665666S666E6 
77777777777777 
89680880888888 
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FIG. 1 


All Saturation Curve Values are in Format F10. 0 (Fig. 2) 
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TWO-COIL LUNDELL (BECKY-ROBINSON TYPE) 

(SECSYN) 


Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

a 


A. 

(128) 

A 

A 

(46) 

a c 

AC 

(144) 

a cd 

ACD 

(153) 

a cf 

AS 

(170) 

a dr 

AD 

(68) 

A 

GA 

(70) 

Ag2 

A2 

(70 a) 

A3 

A3 

(79) 

a np 

ANP 

(79b) 

a sk 

ASK 

(79a) 

a sp 

ASP 

(124) 

A y2 

AY2 

(112) 

Ay4 

AY4 


B, b 

(20) 

B 

BK 

(135) 

hbo 

WO 

(135) 

bbl 

B 

(22) 

b o 

BO 

(94) 

B c B c 

BC1 


U-2it 


Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(95) 

B g’ B g 

BG1 

(122) 

B g2 

BG2 

(119) 

B g3 

BG3 

(224) 

B g2 FL 

BG2L 

(230) 

B g3FL 

BG3L 

(116) 

b NP 

BNP 

(76) 

b NP(END) 

BNE 

(76) 

b NP(MID) 

BNM 

(234) 

b npfl 

BNPL 

(22) 

b s 

BS 

(222) 

b skfl 

BSK 

(105) 

B SP 

BSP 

(215) 

b spfl 

BSPL 

(76) 

b SP(END) 

BSE 

(76) 

b SP(MED) 

BSM 

(57a) 

b tl/3 

SM 

(91) 

B T’ b t 

BT1 

(205) 

b tl 

BTL 

(57) 

b tm 

TM 


LA-25 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(15) 

b v 

BV 

(125) 

B y2 

BY2 

(228) 

B y2FL 

BY2L 

(113) 

B y4 

BY4 

(232) 

B y4FL 

BY4L 



c 

(32) 

c 

C 

(71) 

C 1 

Cl 

(74) 

C M 

CM 

(73) 

C P 

CP 

(75) 

C q 

CQ 

(72) 

C W 

CW 


D, 

_d_ 

(12) 

D 

DU 

(11) 

d 

DI 

(35) 

d b 

DB 

(170) 

d dr 

DDR 

(78) 

d ir 

DIR 

(Ua) 

d r 

DR 


LA-26 



Calculation 

Number 


Electric 3~l 
Symbol 


Fortran 

Symbol 


E, e 


(3) 

E 

EE 

(55) 

ef top 

ET 

(56) 

ef bot 

EB 

(238) 

e ffl 

EPFL 

(127b) 

e fnl 

EPNL 

(4) 

e ph 

EP 


F, f 


(5a) 

f 

F 

(98) 

F c> F c 

FC 

(201) 

f cl 

FCL 

(236) 

f fl 

FFL 

(96) 

F , F* 
g’ g 

FG 

(208a) 

F gL 

FGL 

(123) 

F g2 

FG2 

(225) 

F g2FL 

FG2L 

(120) 

F g3 

FG3 

(231) 

F g3FL 

FG3L 

(117) 

f np 

FNP 

(127) 

f nl 

FNL 


T.ZU97 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(235) 

f npfl 

FNPL 

(180) 

CO 

O 

FSC 

(223) 

F 3KFL 

FSK 

(107) 

F SP 

FSP 

(216) 

F_ 

SPFL 

FSPL 

(97) 

F m F* 

FT 

(206) 

f tl 

FTL 

(133) 

F & W 

WF 

(126) 

F y2 

FY2 

(229) 

F 

y2FL 

FY2L 

(231) 

F y3FL 

FG3L 

(114) 

F y4 

FY4 

(233) 

F y4FL 

FY4L 


G, 

JL 

(59) 

g 

GC 

(59a) 

g 2 

GP 

(59c) 

g 3 

G3 

(59d) 

g 3-l 

G2 

(59e) 

g 3-2 

G1 

(59f) 

g 3e 

G4 

(69) 

g e 

GE 


LA-28 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 



H, 

h_ 

(135) 

h bo 


HD 

(135) 

h bl 


H 

(24) 

h 

c 


HC 

(73) 

h NP 


HNP 

(38) 

h ST 


SD 

(38) 

h ST 


SH 

(78) 

h y 


YH 



I, 

i 

(237) 

t ffl 


AIFL 

(127a) 

FNL 


AINL 

(8) 

t ph 


PI 

(182) 

I 2 r f 


FEE 

(241) 

i 2 r fl 


FCUL 

(194) 

i 2 r 


PS 

(245) 

i 2 r s 


SCUL 





(19) 

k 


WL 

(9a) 

K c 


CK 

(43) 

K d 


DF 


LA-29 





Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 

(63) 

K e 

EK 

(16) 

K i 

SF 

(44) 

K 

P 

CF 

(67) 

K s 

CC 

(42) 

k sk 

FS 

(2) 

k va 

VA 

(61) 

K x 

FF 


J±L 

_ 1 _ 

(13) 

JL 

CL 

(804 


PL1 

(814 

*2 

PL2 

(82 a) 

<3 

PL3 

(83) 

*4 

PL4 

(83) 

^4a 


(85) 

^6 

PL6 

(86) 


AL7 

(139) 


SB 

(84) 

1c 

PLC 

(48) 

l e 

EL 

(36) 

^ e2 

CE 


LA- 30 



Calculation 
Nu mber 

Electrical 

Symbol 

Fortran 

Symbol 

(161) 

l f 

SI 

(78) 

^g2 

GP2 

(76) 

^ NP 

PNL 

(17) 


SS 

(76) 

^SP 

PSL 

(49) 


HM 

(147) 

^ tf 

FE 

(78) 


ALY 

(78) 

^ y4 

Y4 


M. 

m 

(5) 

m 

PN 


N, 

n 

(13 8) 

n b 

BN 

(146) 

n f 

PT 

(45) 

n e 

EC 

(30) 

n s 

SC 

(34) 

n st 

SN 

(34a) 

t 

M 

iN ST 

SN1 

(14) 

n 

V 

HV 


LA-31 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 



_P 

(6) 

p 

PX 

(9) 

PF 

PF 

(80) 

P 1 

PI 

(81) 

?2 

P2 

(82) 

P 3 

P3 

(83) 

P 4 

P4 

(84) 

P 5 

P5 

(85) 

P 6 

P6 

(86) 

P 7 

P7 


Q, 

_q_ 

(23) 

Q 

QQ 

(25) 

q 

QN 


H, 

r 

(154) 

R f(cold) 

FK 

(155) 

^f(hot) 

FR 

(7) 

RPM 

RPM 

(53) 

R SPH(cold) 

RG 

(54) 

^SPH(hot) 

RP 


LA-32 



Caiculaiion 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


§ 

L _s_ 

(181) 

SCR 

SCR 

(127c) 

S F 

CD 

(47) 

S S 

S 


T 

, t 

(177) 

T a 

TA 

(178) 

T d 

T5 

(176) 

^do 

TC 

(78) 

t sk 

TSK 

(78) 

T SP 

TSP 


V 

, v 

(145) 

V r 

VR 


W, w 

(185) 

w c 

WQ 

(244) 

W DFL 

WDL 

(193) 

w D nl 

WD 

(186) 

W NPL 

WN 

(243) 

W PFL 

WNL 

(242) 

W TFL 

WTFL 

(184) 

W TNL 

WT 


LA-33 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


X. 

X 

(12S) 

X 

XR 

(131) 

X ad 

XD 

(132) 

X aq 

XQ 

(142) 

X D °C 

T3 

067) 

x d 

XS 

(168) 

»» 

x d 

XX 

(163) 

X Dd 

XI 

(165) 

X Dq 

X2 

(166) 

X du 

XU 

(160) 

x ; 

XF 

(150) 

o 

O 

T2 

(130) 

x « 

XL 

(169) 

f 1 

X q 

XY 

034) 

X q 

XB 

(50) 

x s °C 

TI 

(170) 

X 2 

XN 

(172) 

X o 

XO 


LA-3U 



aicuiation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 


Y, 

X 

(31) 

y 

YY 

(100) 

Si 

FI 

(101) 


F2 

(102) 

0^3 

F3 

(103) 


F4 

(118) 

5 

PL5 

(121) 


PL6 

(99) 

7 

PL7 

(209) 

<>il 

Q1 

(210) 

0 2L 

Q2 

(211) 

0 3L 

Q3 

(212) 

0 4L 

Q4 

(228) 

d 5L 

QL5 

(220) 

0 6L 

Q6 

(207) 

0 7L 

Q7 

(93) 

Op 

FQ 

(213) 

o PL 

FQL 

(90) 

0 O'p 

TG 

(208) 

0 TL 

PTL 


LA-35 



Calculation 

Number 

Electrical 

Symbol 

Fortran 

Symbol 



Y 

(140) 

n. 

TB 

(41) 

r P 

TP 

(26) 

n 

TS 

(40) 

^SK 

SK 

(27) 

Ts 1/3 

TT 


A 

(158) 


BD 

(162) 


PU 

(154) 

A Dq 

PV 

(64) 

a 7 

AJ 

EW 

(159) 

Apt 

BE 



(141) 

7% 

RE 

(143) 

hot 

RM 

(151) 

fi 

RR 

(152) 

i i (hot) 


(51) 

l°s 

RS 


LA-36 



c 


PASS 1 SECSYN 


1 F0RHAT(E1 1.5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

2 F0RHAT(F7.0,F7.0 f F7.0 f F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0) 

3 FORMAT (9X F12;5,2X F12.5) 

7 READ2,VA,EE,EP,PN,F,PX,RPM,PI ,PF,CK 
READ2,POL,DI,DU,CL,HV,BV,SF,WL,BK,ZZ 
READ2,BO,B1,B2,B3,BS,HO,HX,HY,HZ,HS 
READ2,HT,HW,QQ,W,RF,SC,YY,C,DW,SN 
READ2,SN1,DW1,DB,CE,SH,SD,PBA,SK,T1,RS 
READ2,G,GC,GP,G4,C1,CW,CP,EL,CM,CQ 
READ2,PE,BNE,BSE,BNM,BSM,PNL,PSL,DR,HNP,D1 
READ2,WO,HD,DD,H,B,BN,SB,TB,RE,T3 
READ2,DDR,AD,PT,FE,RD,RT,T2,RR,SNL,WF 
SS«SF*(CL-HV*BV) 

HC-(DU-DI-2.0*HS)*0.5 

QN-QQ/(PX*PN) 

TS«3.142*DI/QQ 

IF(ZZ-4.0)9,10,9 

9 TT-(0.667*HS+0I )*3.142/QQ 
GO TO It 

10 TT-3.1416*(DI+2.*H0+1.32*BS)/QQ 

11 I F ( ZZ— 1 . 0 ) 1 2 , 1 2 , 1 3 

12 BO-BS 

CC- ( 5 . 0*GC+BS ) *TS / ( (5 . 0*GC+BS ) *TS-BS*BS ) 

GO TO 14 

13 QC«(4.44*GC+0.75*B0)*TS 
CC-QC/(QC-BO*BO) 

14 CS-YY/(PN*QN) 

TP«3.142*0I/PX 

LA-37 


i 



I F(SK) 18, 18, 1 9 

18 FS=1 .0 
GO TO 20 

19 FS-S I N ( 1 . 57 1 *SK/TP) *TP/ ( 1 . 57 1 *SK) 

20 IF(PBA-60.)21,21,22 

21 D-1.0 

GO TO 95 

22 D-2.0 

95 l-QN 

U-l 

IF(QN-U)23,23,24 
24 U-PX*PN 
XX-U 
N-U 

DO 25 K-1,N « 

Z-U/XX 

l-Z 

Zl-I 

IF(Z-Z1)26, 26,25 

26 ZY-QQ/XX 
l-ZY 
Zl-I 

IF(ZY-Z1)27, 27,25 
25 XX-XX-1. 

23 ZY-QN 

27 DF-S I N( . 5236*D)/(ZY*D*S I N( ,5236/ZY) ) 
CF-SI N(YY*t.571/(PN*QN)) 
EC-QQ*SC*CF*FS/C 

GE«CC*GC 


LA-38 


I F (Cl ) 29, 28,29 

28 C1=0.649*L0G(PE)+1 .359 

29 IF(CW)30,30,31 

30 CW-0.707*EE*C1*DF/(EP*PN) 

31 IF(CP)32,32,33 

32 CP»PE*(L0G(GC/TP)*. 0378+1. 191) 

33 IF(EL)34,34,42 

34 IF(RF)35, 35,41 

35 IF(PX-2. 0)36, 36,37 

36 U=1 .3 

GO TO 40 

37 I F(PX-4. 0)38,38,39 

38 U-1.5 

GO TO 40 

39 U-l .7 

40 EL-3.l42*U*YY*(DI+HS)/QQ+0.5 
GO TO 42 

41 EL-2 . 0*CE+3 . 1 42* ( 0 . 5*HX+DB ) +YY*TS*TS/SQRT (TS*TS-BS*BS ) 

42 AA«1.571*PE 
AB-3. 142*PE 
IF(CM)43,43,44 

43 CM-(AB+SIN(AB))/(SIN(AA)*4.) 

44 IF(CQ)45,45,46 

45 CQ»(0.5*C0S(AA)+AB-SIN(AB))/(4.0*SIN(AA)) 

46 RB- ( T 1 +23 4 . 5 ) *0 . 003 94*RS 

PRINT3,SS,CC,HC,GE,TS,C1,TT,CW,FS,CP,DF,EL,CF,CH,EC,CQ 
PUNCH1 ,VA,EE,EP,PN,F,PX 
PUNCH1 ,RPM, P I ,PF,CK,POL,DI 
PUNCH 1 ,DU,CL,SS,HC,SF,QN 


LA-39 



PUNCH 1,WL,BK,ZZ,B0,B1,B2 
PUNCH 1 ,B3,BS,H0,HX,HY,HZ 
PUNCH1 ,HS,HT,HW,QQ,V/,RF 
PUNCH 1 ,SC, YY,C,TS,SN,DB 
PUNCH1 *CE,SH,SD,TT, SK,RB 
PUNCH1,RS,GC,GP,C1,CW,CP 
PUNCH!, EL, CM,CQ,DW,CC,PBA 
PUNCH1,G4,CS,CF,FS,EC,DF 
PUNCH 1 ,G,GE,RS,TP,BNE,BSE 
PUNCH!, BNh,BSM,PNL,PSL, DR, HNP 
PUNCH1 ,D1 ,WO,HD,DD,H,B 
PUNCH 1 ,BN,SB,TB,RE,T3,PT 
PUNCH 1 ,FE,RD,RT,T2,RR,SNL 
PUNCH 1 ,WF , PE,DDR,AD,SN1 ,DW1 
PAUSE 
END 


u-4o 


PASS 2 SECSYN 


1 F0RMAT(E1 1.5, El 1.5, El 1.5, Ell. 5, El 1.5, El 1.5) 
DIMENSION DA(8),DX(6),DY(8),DZ(8) 

READ1, VA,EE,EP,PN,F,PX 
READ 1 , RPM.PI ,PF,CK,POL,DI 
READ1, DU,CL,SS,HC,SF,QN 
READ1, WL,BK,ZZ,B0,B1,B2 
READ1 , B3,BS,HO,HX,HY,HZ 
READ1, HS,HT,HW,QQ,W,RF 
READ1 , SC,YY,C,TS,SN,DB 
READ1 , CE,SH,SD,TT,SK,RB 
READ1, RS,GC,GP,C1,CW,CP 
READ1, EL,CM,CQ,DW,CC,PBA 
READ1, G4,CS,CF,FS,EC,DF 
READ1 ,G,GE,RS,TP,BNE,BSE 
READl,BNh,BSM,PNL,PSL,DR,HNP 
READ1,D1,W0,HD,DD,H,B 
READ1 ,BN,SB,TB,RE,T3,PT 
READ1 ,FE,RD,RT,T2,RR,SNL 
READ 1 ,WF,PE,DDR, AD,SN1 ,DW1 
DT-DW1 

IF(ZZ-3. 0)49,50,51 

49 SM-TT-BS 
GO TO 53 

50 SM-(3. 1416* (D 1+2. *HS)/QQ)-B3 
GO TO 53 

51 IF(ZZ-4. 0)50,52, 49 

52 Sh»TT-.94*BS 

53 HM-CL+EL 

LA-41 



IF(DT) 61,61,62 

61 AC-0.785*DW*DW*SU1 
GO TO 72 

62 ZY=0.0 
DA(1)«0.05 
DA(2)«0.072 
DA(3)-0.125 
DA(4)-0. 165 
DA(5)-0.225 
DA(6)=0.438 
DA(7)**0.688 
DA(8)=1.5 
DX(1) -0.000 124 
DX(2)«0. 00021 
DX(3)-0. 00021 
DX(4)»0. 00084 
DX(5)-0. 00189 
DX(6)»0. 00189 
DY(1)-0. 000124 
DY(2)«0. 000124 
DY(3)-0. 00084 
DY(4)-0. 00084 
DY(5)=0. 00189 
DY(6)»0. 00335 
DY(7)“0. 00754 
DY(8)«0. 03020 
DZ ( 1 )-0.0001 24 
DZ(2)-0. 000124 
DZ(3)-0. 000124 


LA-42 



DZ(4)=0. 00335 
DZ(5)=0. 00335 
DZ (6)*=0. 00754 
DZ(7)=0.0134 
DZ(8)«0.0302 

63 IF(DT-.05)201, 201,200 

200 JA-0 
JB-0 
JOO 
JD-0 

64 JA-JA+1 
JB-JB+1 
JC-JC+1 
JD-JD+1 

IF(DT-DA(JA))65,65,64 

201 D-0 

I F (ZY)71 ,71 »54 

65 I F(DW-0. 188)66,66,67 

66 CY«*DX( JB-1 ) 

CZ-DX(JB) 

GO TO 70 

67 IF(0W-0.75)68,68,69 

68 CY«DY( JC-1 ) 

CZ«*DY( JC) 

GO TO 70 

69 CY“DZ(JO— 1 ) 

CZ«DZ(JD) 

70 D=CY+(CZ-CY)*(DT-DA( JA-1 ) ) / (DA( JA)-DA( JA-1 ) ) 
I F (ZY) 7 1*71 »54 


Un43 



71 AO(DT*DW-D)*SN1 

72 IF(RT)73,73,74 

73 AS=0.785*RD*RD 


GO TO 55 
7^ ZY=1 .0 
DT=RT 
DW-RD 
GO TO 63 

54 AS«RT*RD-D 

55 S«PI/(C*AC) 

CY=PT *FE*0. 000001 /AS 

FK«=RR*CY 

FR= ( T 2+23 4 . 5 ) *F K*0 .00394 
RC«0.321*PT *FE*AS 
IF(SH)202,203,202 

203 ET-1 
EB=1 

GO TO 204 

202 AA=0.584+(SN*SN-1.0)*0.0625*(SD*CL/(SH*HM))**2.0 

AB= ( SH*SC*F*AC / ( BS*RB ) ) **2 . 0 
ET=AA*AB*0 . 00335+ 1 . 0 
E B*=> ET—O . 00 1 6 8* AB 

2 04 RY=SC*QQ*0 . 00000 1 *Hh/ ( P N*AC*C*C ) 

RG«RS*RY 

RP«RB*RY 

A*»P I *SC*CF/(C*TS) 

PUNCH 1 ,VA,EE,EP,PN,F,PX 
PUNCH 1 f RPM,PI , PF,CK,POL,DI 
PUNCH 1 ,DU,CL,SS,HC,SF,QN 


LA— Ui 



PUNCH!,WL,BK,ZZ,B0,Bl,B2 
PUNCH!,B3,BS,H0,HX,HY,HZ 
PUNCH!, HS,HT,HW,QQ,W,RF 
PUNCH 1 ,SC,YY,-C,TS,SN,DB 
PUNCH! ,CE,SH,SD,TT,SK,RB 
PUNCH!, RS,GC,GP,C!,CW, CP 
PUNCH1 ,EL,CM,CQ,DW,CC,PBA 
PUNCH 1 ,G^,CS,CF,FS,EC,DF 
PUNCH!, G,GE,RS, TP, BHE, BSE 
PUNCH!, BNH,BSH,PNL,PSL, DR, HNP 
PUNCH! ,D1 ,WO,HD,DD,H,B 
PUNCH! ,BN,SB,TB,RE,T3,PT 
PUNCH!, FE,RD,RT,T2,RR,SNL 
PUNCH! ,WF,HH,Sh,AC,AS,ET 
PUNCH! ,EB,S,FK,FR,RC,RG 
PUNCH1 ,RP,A,PE,DDR, AD 
PAUSE 
END 





C PASS 3 SECSYN 

1 FORMAT (Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5 # E11. 5) 
READ1 ,VA,EE,EP,PN,F,PX 
READ! ,RPI 1 ,PI ,PF,CK,POL,DI 
READ1, DU,CL,SS,HC,SF,QN 
READ1, WL,BK,ZZ,B0,B1,B2 
READ1, B3,BS,HO,HX,HY,HZ 
READ1 ,HS,HT,HW,QQ,W,RF 
READ1 ,SC,YY,C,TS,SN,DB 
READ1 ,CE,SH,SD f TT,SK,RB 
READ 1 ,RS,GC,GP,C1,CW,CP 
READ1 ,EL,Ch,CQ,DW,CC,PBA 
READ1 ,G4,CS,CF,FS,EC,DF 
READ1 ,G,GE,RS,TP,BNE,BSE 
READ1 ,BNM,BSM,PNL,PSL,DR,HNP 
READ1 ,D1,W0,HD,DD,H,B 
READ1 ,BN,SB,TB,RE,T3,PT 
READ1 ,FE,RD,RT,T2,RR,SNL 
READ1 ,WF,HM,SM,AC,AS,ET 
READ1 ,EB,S,FK,FR,RC,RG 
READ1 ,RP,A,PE,DDR,AD 
I F ( PBA-60.0) 1 05, 1 05, 1 08 

105 I F (CS-O. 667 ) 1 06, 1 06, 1 07 

106 FF-0.25*(6.0*CS-1.0) 

107 FF“0.25*(3 .*CS+1 . 0 ) 

GO TO 75 

108 IF(CF-0.667)109,109,110 

109 FF«0.05*(24.0*CS-1.0) 

GO TO 75 
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110 FF=0.75 

75 CX=FF/(CF*CF*DF*DF) 

Z«CX*20.0/(PN*QN) 

BT=3.142*DI /QQ-BO 
ZA=BT*BT/( 16.0*TS*GC) 

ZB=0.35*BT/TS 

ZOHO/BO 

ZD=HX*0.333/BS 

ZE«HY/BS 

I F (ZZ— 2.0) 76,77,70 

76 PC=Z*(ZE+ZD+ZA+ZB) 

GO TO 82 

77 PC=Z*(ZC+(2.0*HT/(B0+BS))+(HW/BS)+ZD+ZA+ZB) 

GO TO 82 

78 IF(ZZ-4.0) 79,80,81 

79 PC«*Z*(ZC+(2.0*HT / (B0+B1 ) )+(2.0*HW/ (B1+B2) )+(HX*0.333/B2)+ZA+ZB) 
GO TO 82 

80 POZ*(ZC+0.62) 

GO TO 82 

81 PC=Z*(ZE+ZD+(0.5*GC/TS)+(0.25*TS/GC)+0.6) 

82 E K=EL / ( 1 0. 0** (0.1 03* YY*TS+0 . 402 ) ) 

I F ( D I -8 . 0 ) 83,83,84 

83 EK**SQRT(EK) 

84 ZF*=.612*L0G( 1 0.0*CS) 

EW=6.28*EK*ZF*(TP**(0.62-(0.228*L0G(ZF) )))/(CL*DF*DF) 

87 ZA«3. 1416*(DI+HS)/QQ 
I F (ZZ-3.0) 88,89,88 

88 TM=ZA-BS 
GO TO 90 
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89 TM=(3.1416*(DI+2.*HS)/QQ)-B3 

9 0 W I = ( T h'H)Q*S S *H S + ( D U-H C ) *3 . 1 4 2 *HC *S S ) *0 . 2 8 3 
PUNCH 1,VA, EE, EP,PN,F,PX 

PUNCH1,RP|1,PI ,PF,CK,POL,DI 
PUNCH1,DU,CL,SS,HC,SF,QN 
PUNCH1,WL,BK,ZZ,B0,B1,B2 
PUNCH 1 , B3,BS,H0,HX,HY,HZ 
PUNCH1 ,HS,HT,HW, QQ,W,RF 
PUNCH 1 ,SC,YY,C,TS,SN,DB 
PUNCH 1 ,CE,SH,SD,TT,SK,RB 
PUNCH1,RS,GC,GP,C1,CW,CP 
PUNCH1,EL,CM,CQ,DW,CC,AD 
PUNCH1,G4,CS,CF,FS,EC,DF 
PUNCH1 ,G,GE,RS,TP,BNE,BSE 
PUNCH 1,BNM,BSM,PNL,PSL, DR, HNP 
PUNCH 1 ,D1,W0,HD,DD,H,B 
PUNCH 1 ,BN,SB,TB,RE,T3,PT 
PUNCH1 ,FE,RD,RT,T2,RR,SNL 
PUNCH 1 ,WF , Hh, SM, AC , AS , ET 
PUNCH 1 ,EB,S,FK,FR,RC,RG 
PUNCH 1 ,RP,A,FF,CX,PC,EK 
PUNCH1 ,EW,ZC,TM,WI , PE, DDR 
PAUSE 
END 
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C PASS 4 SECSYN 

1 FORMAT (Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

2 FORMAT (F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0,F7.0) 
READ2, P1,P2,P3,P4,P5,P6,P7,PL1,PL2,PL6 

READ2, PLC,DIR,DQ,YH,ALY,RSL,Y4,GP2,TSP,TSK 
READ2, DT0,DT1,DS1,DS2,DS3,DS4,DS5,S1,S2,S3 
READ2,S4,S5,DOS,PFHL,DBHL,WR 
READ 1 , VA,EE,EP,PN,F,PX 
READ1, RPM.PI ,PF,CK,POL,DI 
READ1, DU,CL,SS,HC,SF,QN 
READ1, WL,BK,ZZ,B0,B1,B2 
READ1, B3,BS,HO,HX,HY # HZ 
READ 1 , HS,HT,HW,QQ,W,RF 
READ1, SC,YY,C,TS,SN,DB 
READ 1 , CE,SH,SD,TT,SK,RB 
READ1, RS,GC f GP,C1,CW,CP 
READ1, EL,CM,CQ,DW,CC,AD 
READ1, G4,CS,CF,FS,EC,DF 
READ1, G,GE,RS,TP,BNE,BSE 
READ1, BNM,BSM,PNL,PSL,DR,HNP 
READ1, D1,W0,HD,DD,H,B 
READ1, BN,SB,TB,RE,T3,PT 
READ 1 , FE,RD,RT,T2,RR, SHI- 
RE ADI, WF,HM,Sh,AC,AS,ET 
READ1, EB,S,FK,FR,RC,RG 
READ1, RP,A,FF,CX,PC,EK 
READ 1 , EW,ZC ,Th,W I , PE, DDR 
I F (PI ) 405,404,405 
404 P1=3 . 1 9*(BNE+PL2)*TSP*PX/PL1 
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405 IF(P2)406, 407,406 

407 IF(BNE-BUM)438,437,430 

438 P2=6.28*((SQRT ( (BNh-BNE)**2+PNL*PNL)/2.)+PL1/2.)*TSP*PX/PL2 
GO TO 406 

437 P2»3.19*(PNL+PL1)*TSP*PX/PL2 

406 I F(P3) 408,409,408 

409 P3=3.19*BNE*(HNP-TSP)*PX/((DR-DOS)*(3. 1416/8. )-TSP) 

408 I F (P4)41 0,41 1,410 

41 1 TEM-3. 1 9*( (DR/2. )-TSP)*PX/( (DR-DOS) /2.-TSP) 

TEMl“3. 1 9*PX/ ( ( (DR/2. )-TSP)*S I N( (6.28/PX)*( 1 .-PE/4. ) )-BNE/2 . ) 

IF(PX-4. >414,414,413 

414 IF (BNE-BNh) 41 5,416,41 5 

416 P4=(PNL+PL1)*TEM 
GO TO 410 

415 P4= ( SQRT ( ( B Nh-BNE ) **2+P NL**2 )*.25+(PL1/2. ) )*2.*TEM 
GO TO 410 

413 IF(BNE-BNM)417,418,417 

418 P4=T EM 1 * ( ( DR-DOS ) /2 . O-TSP ) * ( PNL+PL 1 ) 

GO TO 410 

417 P4«=(SQRT ( (BNf1-BNE)**2+PNL**2)*.25+(PL1 /2. ) )*2.*TEMl*( (DR/2. )-TSP) 

410 IF(P5)419,420,419 

420 P5-3 . 1 9*BNE*PI_6*.667*PX/PLC 

419 I F ( P6 ) 42 1 ,422,421 

422 P6«3.19*PLC*PE*(DR~2.*TSP)*3.1416/PL6 

421 I F ( P7 ) 424, 423 , 424 

423 P7“(3. 19/4.)*3.14l6*(DR+HC+HS)*(HC+HS+RSL)/(3. 1416*(HC+HS) /2. ) 

424 TG=6.E6*EE/(CW*EC*RPM) 

PUNCH 1 , VA, EE,EP,PN,F,PX 
PUNCH1 ,RPM,PI ,PF,CK,POL,DI 
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PUNCH 1 ,DU,Cl,SS,HC,SF,QN 
PUNCH1,WL,BK,ZZ,B0,B1,B2 
PUNCH 1 , B3,BS,H0,HX,HY,HZ 
PUNCH1 ,HS,HT,HW,QQ,W,RF 
PUNCH!, SC, YY,C,TS,SN,DB 
PUNCH! ,CE,SH,SD,TT,SK,RB 
PUNCH !,RS,GC,GP,C1,CW, CP 
PUNCH! ,EL,CM,CQ,DW,CC, AD 
PUNCH! ,G4,CS,CF,FS,EC,DF 
PUNCH!, G,GE,RS, TP, BNE, BSE 
PUNCH!, BNM,BSM,PNL,PSL, DR, HNP 
PUNCH! ,D!,WO,HD,DD,H,B 
PUNCH1,BN,SB,TB,RE,T3,PT 
PUNCH! ,FE,RD,RT,T2,RR,SNL 
PUNCH ! ,WF ,HM, SM, AC , AS , ET 
PUNCH!, EB,S,FK,FR,RC,RG 
PUNCH 1 ,RP,A,PLC,PL!,PC,EK 
PUNCH!, EW,ZC,TM,WI , PE, DDR 
PUNCH! ,TG,P1,P2,P3,P4,P5 
PUNCH! ,P6,P7,DIR,DQ,YH,ALY, 
PUNCH1,RSL,Y4,GP2,TSP,TSK,PFHL 
PUNCH! ,DBHL, DOS, WR,DTO,DT 1 , DS 1 
PUNCH!, DS2,DS3,DS4,DS5, SI, S2 
PUNCH1 ,S3 ,S4,S5 
PAUSE 
END 
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c PASS 5 SECSYN 

1 FORMAT (Et 1.5, El 1 .5,E 1 1 .5, El 1.5, Ell. 5, Ell. 5) 
READ1 ,VA,EE,EP,PN,F,PX 
READ1 ,RPM,PI ,PF,CK,POL,DI 
READ1 ,DU,CL,SS,HC,SF,QN 
READ1 ,WL,BK,ZZ,BO,B1,B2 
READ1 , B3,BS,HO, HX,HY,HZ 
READ1 ,HS,HT,HW,QQ,W,RF 
READ1 ,SC,YY,C,TS,SH,DB 
READ1 ,CE,SH,SD,TT,SK,RB 
READ1 ,RS,GC f GP,C1,CW,CP 
READ1 ,EL,CM,CQ # DW,CC,AD 
READ1 ,G4,CS,CF,FS,EC,DF 
READ1 ,G,GE,RS,TP,BNE,BSE 
READ1 ,BNM,BSM,PNL,PSL,DR,HNP 
READ! ,D1,WO,HD,DD,H,B 
READ1 ,BN,SB,TB,RE,T3,PT 
READ1 ,FE,RD,RT,T2,RR,SNL 
READ1 ,WF # HM,SM,AC,AS,ET 
READ1 ,EB,S,FK,FR,RC,RG 
READ1 ,RP, A, PLC, PL1 , PC, EK 
READ1 ,EW,ZC,TM,WI , PE, DDR 
READ1 ,TG,P1,P2,P3,P4,P5 
READ1 ,P6,P7,DIR,DQ,YH,ALY 
READ1 ,RSL,Y4,GP2,TSP,TSK,PFHL 
READt ,DBHL # DOS,WR,DTO,DT1,DS1 
READ1 ,DS2,DS3,DS4,DS5,S1,S2 
READ1 ,S3,S4,S5 
BTT-TG/(SS*SM*QQ) 
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FQ-TG*CP/PX 

BOFQ/(2.*HC*SS) 

BG=TG/(3.1416*DI*CL) 

ALCR- 3.1416*(DU-HC)/(4.*PX) 

AY4-(3. 1416/4.)*(D0S*D0S-DQ*DQ) 

AY2»3.1416*D0S*ALY 

GA-DI*3.1416*CL 

A2«3 . 1 4 1 6*GP2* ( D I R+G P ) 

IF(G-1. 0)402, 403, 402 

402 A3- 1 . 57 1 * ( DTO+DT 1 ) *SQRT ( 4. *Y4*Y4+ ( DTO-DT 1 ) **2 ) 
GO TO 444 

403 A3-(DS1*S1)+(DS2*S2)+(DS3*S3)+(DS4*S4)+(DS5*S5) 
A3-3.1416*A3+(D0S**2-DS1**2)*.78 

444 ANP-PNL*(BNE+BNM)/2. 

ASP-BSE*TSP 

ASK-3. 1416*(DR-TSK)*TSK 
I F(WF >445,446,445 

446 WF-2 . 52E-6* ( DR**2 . 5 ) * ( PL 1 +P NL+G P2 ) *RPM** 1 . 5 

445 WC-.32 1*HM*QQ*AC*SC 
PUNCH 1 ,VA,EE,EP,PN,F,RPM 
PUNCH t ,P I , PF, CK, P0L,D I ,DU 
PUNCH 1 ,CL,SS,HC,SF,QN,WL 
PUNCH 1 ,BK,ZZ, BO, B1 ,B2,B3 
PUNCH1 ,BS,HO,HX,HY,HZ,HT 
PUNCH 1 ,HW,QQ,W,RF,SC,YY 
PUNCH 1 ,C ,TS,SN,DB,CE,SH 
PUNCH1 ,SD,TT,SK,RB,RS,GC 
PUNCH 1 ,C1 ,CW,CP,EL,CM,CQ 
PUNCH 1 ,DW,CC, AD,CS,CF,FS 
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PUNCH1,EC,DF,G,RS,TP,BSE 
PUNCH 1 , BSM,PNL,DR,D1 ,WO,HD 
PUNCH!,DD,H,B,BN,SB,TB 
PUNCH1,RE,T3,FE,RD,RT,T2 
PUNCH!, RR,SNL,WF,Hh,SH, AC 
PUNCH1,ET,EB,S,FK,RC,RG 
PUNCH! ,RP, A,PLC,PL! , PC,EK 
PUNCH1 ,EW,ZC,TM,WI , PE, DDR 
PUNCH! ,0 1 R,D0S,DQ,RSL,GP2,TSP 
PUNCH!, TSK,PFHL,DBHL,GA,WC, ASK 
PUNCH!, TG,BTT,FO,BC,GE,HS 
PUNCH!, ALCR,PX,ANP, ASP, HNP 
PUNCH! ,A2, A3, AY4,Y4,G4,GP 
PUNCH!, AY2,YH,PT,FR, AS, PSL 
PUNCH! ,BNE,BNM,ALY,P! ,P2,P3 
PUNCH!, P4,P5,P6,P7,WR,BG 
PAUSE 
END 
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C PASS 6 SECSYN 

DIMENSION A I (120) 

888 FORMAT (FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0) 

1 FORMAT (El 1.5, El 1.5, Ell. 5, Ell. 5, El 1.5, Ell. 5) 

K~1 

823 READ888, Al (K),AI (K+1),AI (K+2),AI (K+3),AI (K+4),AI (K+5) 
K-K+6 

IF (K-1 1 9)823,824,824 

824 00844 N-1,20 

READ1 ,R1,R2,R3,R4,R5,R6 
PUNCHl ,R1 ,R2,R3,R4,R5,R6 
844 CONTINUE 

READ1 ,TG,BTT,FQ,BC,GE,HS 
READ1 , ALCR,PX, ANP,ASP,HNP 
READ1 ,A2,A3, AY4,Y4,G4,GP 
READ1 , AY2,YH,PT,FR, AS,PSL 
READ1 ,BNE,BNM, ALY,P1 ,P2,P3 
READ1 ,P4,P5,P6,P7,WR,BG 
L0AD«1 
PL7 1“.01*TG 
801 TTP-TG+PL71 
X-TTP/TG 
BT 1 «X*BTT 
Z=FQ/PX 
PP1=X*FQ 
BC1-(PP1/FQ)*BC 
BG1«BG*X 

FG« ( BG 1 *G E ) / . 003 1 9 

NA-1 
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K= 1 
X=BT1 
GO TO 802 

803 FT=AT*HS 
NA=1 

K-2 
X-BC1 
GO TO 802 

804 FC-AT*ALCR 
PL7=(FT+FG+FC)*P7*.OOl 

I F ( 1 . 1*PL7 1-PL7)81 0,81 1,81 1 

811 IF(.9*PL/1-PL7)812,812,810 
810 PL7 1°PL7 

GO TO 801 

812 Z1»(.002*(FG+FC+FT))*(P1+P2+P3+P4) 
FQ-PP1 

Z-FQ/PX 
Y=Z 1 /PX+FQ 
BNP-Y/ANP 
BSP«Y/(2.*ASP) 

NA-61 
K-3 
X-BNP 
GO TO 802 

805 FNP-HNP*AT 
NA-31 

K»4 
X-BSP 
GO TO 802 
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806 I F ( BNE-BNM) 820,82 1,820 

820 AXX=PSL/2. 

GO TO 822 

821 AXX=PSL/3. 

822 FSP=AXX*AT 
PG2«(FQ*PX+Z1+PL7)/4. 

BG2«PG2/A2 

FG2=BG2*GP/.00319 

BY4-PG2/AY4 

K»5 
NA*=6 1 
X=BY4 
GO TO 802 

807 FY4«AT*Y4 
Z2-2.*(FG+FC+FT) 

Z3-Z2+FSP+FG2 

PL5»(Z3+FNP)*P5*.001 

816 BNP»( ( (Z1+PL7+PL5) /PX)+FQ) /ANP 
K“6 
NA«6 1 
X-BNP 
GO TO 802 

808 FNP-HNP*AT 
PL5MZ3+FNP)*P5*.001 

I F(1.1*PL5-PL51)813, 814,814 

814 IF (,9*PL5-PL51) 81 5,81 5,813 
813 PL5-PL51 

GO TO 816 

815 BG3“(FQ*PX+(Z1+PL7+PL5) ) /(4.*A3) 


LA-57 



FG3=BG3*G4/.00319 
PL6=(Z2+FSP+FNP+FY4+FG3)*P6*.001 
BG2-(FQ*PX+Z1+PL7+PL6)/(4.*A2) 
FG2»BG2*GP/.00319 
BY2«(FQ*PX+Z1+PL7+PL5)/(4.*AY2) 
X»BY2 
K-7 
NA-91 
GO TO 802 
809 FY2»YH*AT/3. 

FNL-Z2+FNP+FSP+FG2+FY2+FG3+FY4 

AINL-FNL/PT 

EFNL-AI NL*FR 

CD-A1NL/AS 

TG-TTP 

PUNCHING, BTT,FQ,BC,GE,HS 
PUNCH 1 , ALCR , PX , ANP , ASP , HNP 
PUNCH1,A2,A3,AY4,Y4,G4,GP 
PUNCH 1 , AY2, YH,PT,FR, AS,PSL 
PUNCH1,BNE,BNM,ALY,P1,P2,P3 
PUNCH1,P4,P5,P6,P7,WR,FC 
PUNCH1 ,BNP,BSP,BY2,BY4,BG2,BG3 
PUNCH1,PG2,FG,FG2,FG3,FNL,AINL 
PUNCH1 ,EFNL,CD,BC1 ,BT1 ,BG1 ,FT 
PAUSE 

802 I F ( A I ( NA) — X ) 83 0, 83 1 , 83 ! 

831 NA-NA+3 

835 IF(AI(NA)-X)833, 834,834 

833 NA-NA+2 
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GO TO 835 
834 AA=*AI ( NA) 

BB1=AI ( NA-2 ) 

DC= A I (NA+1) 

D=AI (NA-1) 

XX= (AA-BB1 ) /( . 43 43* ( LOG (DC) -LOG (D+. 0001 ) ) ) 
Y»AA-XX*.4343*L0G(DC) 

AT=EXP(2.306*(X-Y) /XX) 

GO TO ( 838 , 839), LOAD 

838 GO TO (803, 804, 805, 806, 807, 808, 809), K 
830 GO TO (836, 837), LOAD 
836 PRINT 850, 

850 FORMAT (17HMACHINE SATURATED) 

PAUSE 

END 
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C PASS 7 SECSYN 

3 FORMAT ( 9X F12.5,2X F12.5) 

1 FORMAT (Ell. 5, Ell. 5, EI1.5, Ell. 5, Ell. 5, Ell, 5) 


RE ADI 

,VA,EE,EP,PN,F,RPM 

READ1 

,PI ,PF,CK,POL,DI ,DU 

READ1 

,CL,SS,HC,SF,QN,WL 

READ1 

,BK,ZZ,B0,B1,B2,B3 

READ1 

,BS,HO,HX,HY,HZ,HT 

READ1 

.HW,QQ,W,RF,SC,YY 

READ1 

,C ,TS,SN,DB,CE,SH 

READ1 

,SD,TT,SK,RB,RS,GC 

READ1 

,C1,CW,CP,EL,CM,CQ 

READ1 

,DW,CC,AD,CS,CF,FS 

READ1 

,EC,DF,G,RS,TP,BSE 

READ1 

,BSM,PNL,DR,D1,W0,HD 

READ1 

,DD,H,B,BN,SB,TB 

READ1 

,RE,T3,FE,RD,RT,T2 

READ1 

,RR,SNL,WF,HM,SM,AC 

READ1 

,ET,EB,S,FK,RC,RG 

READ1 

,RP,A,PLC,PL1,PC 

READ1 

,EW,ZC,TM,WI , PE, DDR 

READ1 

,DIR,DOS,DQ,RSL,GP2,TSP 

READ1 

,TSK,PFHL,DBHL,GA,WC, ASK 

READ1 

,TG,BTT,FQ,BC,GE,HS 

READ1 

, ALCR,PX, ANP, ASP,HNP 

READ1 

, A2, A3, AY4, Y4,G4,GP 

READ1 

, AY2, YH,PT,FR, AS,PSL 

READ1 

,BNE,BNM,ALY,P1,P2,P3 

READ1 

,P4,P5,P6,P7,WR,FC 
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READ1 ,BNP,BSP,BY2,BY4,BG2,BG3 
READ1 ,PG2,FG,FG2,FG3,FNL,AI NL 
READ1 ,EFNL,CD,BC1,BT1,BG1,FT 
XR=. 07 07*A*DF / ( C 1 *BG 1 ) 

XL=XR*(PC+EW) 

XD= EC*PI*CM*DF* 90./(PX*(2.*FG+FG2+FG3)) 
XQ=CQ*XD/(CM*C1) 

XA-XL+XD 

XB-XL+XQ 

VR=* ,262*0R*RPh 

GE1=GE*(2.*FG+FG2+FG3)/(2.*FG) 

FL« ( P 1 +P2+P3+P4+P 5+P6 ) /CL 
ALA=6.38*DI /(PX*GE1) 

PGE=PG2/(AI NL*PT*.00l ) 

XF»XD*( 1 .-( (Cl /CM) /(2.*CP+(4.*FL /(3 . 1416*ALA) ) ) ) ) 

S I =2.*PT*PT*PGE*1 . E-8 
I F(BN) 51 1,510,511 
511 I F (H)501 ,502,501 

502 BD«6.38*(HD/W0+1 . 12) 

GO TO 503 

501 BD=6.38*(HD/WO+H/(3.*B)+.5) 

503 BE“6.38*(BNE-TB*(BN-1 ,))/(3.*GE) 
X1=XR*C0S((BN-1.)*TB*3.1416/(2.*TP))*(BD+BE)*FL/(BD+BE+FL) 
XXA-20.*TB/TP 

IF(H)504, 505,504 

504 X2»XR*(.5+GC/TB+HD/W0+H/(3.*B))*XXA 
GO TO 506 

505 X2-XR*(GC/TB+1.12+HD/W0)*XXA 
GO TO 506 
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510 X1=0 
X2=0 

506 XU*=XF+XL 
XS=.88*XU 

I F( BN) 507, 508, 507 

507 XX-XL+X1 
XY-XL+X2 
GO TO 509 

508 XX-XS 
XY-XB 


509 PRINT3,AC,A,S,XR,HM,XL,RG,XD,RP,XQ,ET,XA,EB,XB,PC,XF,EW,SI ,WC,X1 


PRINT3,WI,X2,TP,XU,WR,XS,VR,XX,AS,XY 
PUNCHl, TSK,PFHL,DBHL,GA,EP, ASK 
PUNCH1 ,BSP,BY2,BY4,BG2,ALCR,ANP 
PUNCHl ,ASP,HNP,A2, A3, AY4,Y4 


PUNCHl, G4,GP,AY2,YH,PT,SNL 
PUNCH 1 ,AS,PSL,BNE,BNM, ALY,BNP 
PUNCH 1 ,BG3,AI NL, EFNL,CD,CP 
PUNCH 1 , ET,EB,RP,PF,SM,WF 


PUNCH 1,RSL,CK,C,PT,RP, POL 
PUNCH 1, PI ,FNL,PG2,FG,FG2,FG3 


PUNCH 1 ,HZ,SC, YY,CH,CF,DF 
PUNCHl , AD,FK,RG,PC,EW,DDR 
PUNCH1 ,GE,S I ,XL,XS,XA,XQ 
PUNCHl, XB,X2,XD,XR,TT,W 
PUNCHl, PN,F,RPM,DI, DU, CL 
PUNCHl, SS,HC,QN,WL,BK,B0 
PUNCHl, QQ,TS,GC, Cl, CC,D1 
PUNCHl, W0,HD,DD,H,B, BN 
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PUNCH1,SB,TB,RE,T3,HS,PX 
PUNCH1,BC1 ,BT1 ,BG1 ,VA,BS,HX 
PUNCH 1,FR,RC, FT, FC,FQ,TG 
PUNCH 1 ,P1 ,P2,P3,P4,P5,P6 
PUNCH! ,P7,EE,CW,SNL,EC,SH 
PAUSE 
END 
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c PASS 8 SECSYN 

1 FORMAT(En.5,E11.5,E11.5,E11.5,E11.5,£11.5) 

D0998 K=1 ,8 

READ1 f R1,R2,R3,R4,R5,R6 
PUNCH 1 ,R 1 # R2,R3,R4,R5,R6 
998 CONTINUE 

READ1,PI ,FNL,PG2,FG,FG2,FG3 

READ1,HZ,SC,YY,CM,CF,DF 

READ1,AD,FK,RG,PC,EW,DDR 

READ1,GE,SI,XL,XS,XA,XQ 

READ1,XB,X2,XD,XR,TT,W 

READ1,PN,F,RPh,DI ,DU,CL 

READ1,SS,HC,QN,WL,BK,BO 

READ1,QQ,TS,GC,C1,CC,D1 

READ! ,WO, HD,DD,H,B,BN 

READ1,SB,TB,RE,T3,HS,PX 

READ1,BC1,BT1,BG1,VA,BS,HX 

READ1 ,FR,RC,FT,FC,FQ,TG 

READ1 ,P1,P2,P3,P4,P5,P6 

READ1,P7,EE,CW # SNL,EC,SM 

WQ=(DU— HC)*1 ,42*HC*SS*(BC1 /BK)**2.0*WL 

WT= Sh *QQ*SS*HS*0.453*(BT1/BK)**2.0*WL 

D2=BG 1 **2 . 5*0 . 00006 1 

D3= ( 0 . 0 1 67 *QQ*rpm)** 1.65*0. 0000 15147 

IF(TS-0. 9)133, 133, 134 

133 D4-TS** 1.285*0 . 81 
GO TO 137 

134 IF(TS-2. 0)135, 135,136 

135 D4«TS**1 . 145 * 0.79 
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GO TO 137 

136 D4=TS**0.79*0.92 

137 D7-BO/GC 

IF(D7-1. 7)138, 138, 139 

138 D5»D7**2.3 1*0.3 
GO TO 144 

139 IF (D7-3. 0)140,140,141 

140 05=07**2.0*0.35 
GO TO 144 

141 IF(D7-5. 0)142, 142,143 

142 D5=D7**1 .4*0.625 
GO TO 144 

143 05=07**0.965*1.38 

144 D6-10.0**(0.932*C1-1.606) 
BA=3.142*DI*CL 

WN«D 1 *D2*D3*D4*D5*D6*BA 
I F (BN) 21 0,21 1,210 
210 AA=WO/(GC*CC) 

VT«0 

I F(AA) 148, 147,148 
148 I F (AA-.65) 145,145, 146 

145 VT«L0G(1 0.0*AA)*(-0.242)+0.59 
GO TO 147 

146 VT=0.327-(AA*0.266) 

147 FS1=2.0*QN*PN*F 
FS2=2.0*FS1 

151 RM=RE*(T3+234.5)/254.5 

153 AA=(FS1/Rn)**0.5*DD*0.32 
AB=(FS2/Rh)**0.5*DD*0.32 
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I F (AA-2. 5) 160,160,161 

160 V1«1 .0-0. 15*AA+0.3*AA*AA 
GO TO 162 

161 V1=AA 

162 I F (AB-2.5) 163,163,164 

163 V2=1.0-0.15*AB+0.3*AB*AB 
GO TO 165 

164 V2-AB 

165 IF(H-B) 167,166,167 

166 VC-0.75/V1 
GO TO 169 

167 IF(DD) 166,168,166 

168 VC-H/(3.0*B*V1) 

169 VS-HD/WO+VT+VC 
VG-TB/(CC*GC) 

Q1-1.0-(1.0/(((B0*0.5/GC)**2.0+1.0)**0.5)) 

QZ-BO/TS 

Q2-1 ,05*S I N(QZ*2.844) 
IF(QZ-0.37)170,170,171 

170 Q3-0.46 
GO TO 172 

171 Q3»0.23*SIN(10.46*QZ-2.1)+0.23 

172 Q4»SIN(6.283*TB/TS-1.571)+1.0 
Q5-S I N( 12.566*TB/TS-1 .57 1 )+1 .0 
IF(H) 173,173,174 

173 AB«0.785*DD*DD 
GO TO 175 

174 AB-H*DD 

175 W2-PX*BN*SB*RM*1 .246/(AB*1000. ) 
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W3=(Q2/(2.0*VS+(VG/Q4)))**2.0*V1 
W5=(Q3/(2.0*VS+(VG/Q5)))**2.0*V2 
WD= ( T S*BG 1 *Q 1 *C C ) **2 . 0*W2* ( W3+W5 ) 
GO TO 212 

211 WD=0 

212 PUNCH 1 ,P I ,FNL, PG2,FG,FG2,FG3 
PUNCH1 ,HZ,SC,YY,CM,CF,DF 
PUNCH1 ,AD,FK,RG,PC,EW,DDR 
PUNCH 1 # GE # SI ,XL,XS,XA,XQ 
PUNCH 1 ,XB, X2 t XD,XR,TT,W 
PUNCH 1 ,PN,F,RPM,D I ,DU,CL 
PUNCH 1 ,SS,HC f QN,WL,BK, BO 
PUNCH1,QQ,TS,GC,C1,CC,D1 
PUNCH1,W0,HD,DD,H,B,BN 
PUNCH 1 # SB,TB,RE,T3,HS,PX 
PUNCH 1 , BC1 ,BT1 ,BG1 , VA t BS,HX 
PUNCH1 ,WT,WQ,WN,WD,FR,RC 
PUNCH 1 ,FQ,TG,FC # FT,P1,P2 
PUNCH1,P3,P4,P5,P6,P7,RM 
PUNCH 1 , EE,CW,SNL,EC, AB 
PAUSE 

END 
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c PASS 9 SECSYN 

I FORMAT (El 1*5, Ell. 5, Ell. 5, Ell. 5, Ell. 5, Ell. 5) 

3 F ORhAT ( 9X F12.5.2X F12.5) 

4 F ORHAT ( 9X F12.5/9X F12.5/) 

D0999 K=1 ,8 

READ1,R1,R2,R3,R4,R5,R6 
PUNCH1,R1,R2,R3,R4,R5,R6 
999 CONTINUE 

READ1,PI ,FNL,PG2,FG,FG2,FG3 
READ1,HZ,SC,YY,CM,CF,DF 
READ1,AD,FK,RG,PC,EW,DDR 
READ1,GE,SI ,XL,XS,XA,XQ 
READ1,XB,X2,XD,XR,TT,W 
READ! ,PN,F,RPM,DI,DU,CL 
READ1,SS,HC,QN,WL,BK,BO 
READ1,QQ,TS,GC,C1,CC,D1 
READ1,WO,HD,DD,H,B,BN 
READ1,SB,TB,RE,T3,HS,PX 
READ1,BC1,BT1,BG1,VA,BS,HX 
READ1 ,WT,WQ,WN,WD,FR,RC 
READ1,FQ,TG,FC,FT,P1,P2 
READ 1,P3,P4,P5,P6,P7,rm 
READ 1,EE,CW,SNL,EC,AB 
IF(BN)601, 610,601 

601 XM=(XD/(C1*CM))*(2.*FG+FG2+FG3)/FNL 
RDB=( (100.*XR*PX*RM)/(F*SS) ) 

RDB=»RDB*( (SB/(BN*AB*PX) )+( ,637*DDR/(AD*PX*PX) ) ) 

ANN=RDB/Xh 

IF(H)606,607,606 
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606 XDD=(20.*XR/BN)*(H/(3.*B)+W0/AD)+ 5.*XM/(6.*BN*BN) 
GO TO 608 

607 XDD»(20.*XR/BN)*(.62+W0/HD)+ 5.*XM/(6.*BN*BN) 

608 SIG- XDD/XM 
AA»4.*S I G*S I G+ANN*ANN 

XN-(XM*(4.*S I G+AA) /( ( 1 ,+S I G)**2*4.+ANN*ANN) )+XL 
AA»3.*YY/(4.*PN*QN) 

AA1°AA*4. 

1 F (W) 609,610,609 

610 XO-O. 

GO TO 621 

609 I F (SC-1 . ) 611,612,611 

612 AKX-1. 

GO TO 615 

611 AKX-AA1-2. 

615 I F (SC-1 -)613, 614,613 
614 AKX1-1. 

GO TO 618 

613 IF((YY/(PN*QN))-.667)616,617,617 

616 AKX1-AA+.25 
GO TO 618 

617 AKX1-AA-.25 

618 IF(AKX)622,623,622 
623 ABL-O. 

GO TO 620 

622 BB-6.35*DI/(PX*GE) 

ABL-(AKX/(CF*CF))*.07*BB 

IF(BN)619,620,619 

619 ABL-( ( AKX*X2/AKX1 )+ABL) /( (AKX*X2/AKX1 )*ABL) 
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620 X0=(AKX/AKX1 )*(ABL+PC)+ . 2*EW 
X0=X0+(1.667*(HX+2.*HZ)/(PN*QN*CF*CF*DF*DF*BS)> 

621 TC= S I / (2.*FK) 

T A«=XN/ (628.32*F*(PN*P I *P I *RG/VA) )*1 .E3 
T5«XS*TC/XA 
I F(F-60. >624,625,624 

625 T4-.035 
GO TO 626 

624 T4-.005 

626 FSC»XA*(2.*FG+FG2+FG3)/100. 

SCR-FNL/FSC 

PRINT3,FK,XN,FR,XO,RC,TG,TC,FQ,TA,BG1,T5,BT1,T4,BC1,P1,FT,P2,FC 
PRI NT3,P3,FG,P4,FSC,P5,SCR 
PR I NT4,P6,P7 

PUNCH1 ,PI ,FNL,PG2,FG,FG2,FG3 
PUNCH1 ,HZ,SC, YY,Ch,CF,DF 
PUNCH 1 , AD,FK,RG,PC,EW,DDR 
PUNCH 1 ,GE,S I ,XL,XS,XA,XQ 
PUNCH1 ,XB,X2,XD,XR,TT,W 
PUNCH1 ,PN,F,RPM,D I ,DU,CL 
PUNCH 1 ,SS,HC,QN,WL,BK, BO 
PUNCH 1 ,QQ,TS,GC,C1 ,CC,D1 
PUNCH 1 ,WO,HD,DD,H,B,BN 
PUNCH 1 ,SB,TB,RE,T3 # HS,PX 
PUNCH 1 ,BC1 ,BT1 ,BG1 , VA,BS,HX 
PUNCH1 ,WT,WQ,WN,WD,FR,RC 
PUNCH 1 ,FQ,TG,FC,FT,FSC,SCR 
PUNCH1 ,P1 ,P2,P3,P4,P5,P6 
PUNCH1 ,P7 t EE,CW,SNL,EC 
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PAUSE 

END 
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c PASS 10 SECSYN 

DIMENSION YB(4),EX(4),EDA(4),DX(4) 

1 FORMAT (El 1.5, Ell. 5, El 1.5, El 1.5, Ell. 5, Ell. 5) 
994 FORMAT (13) 

824 READ1 ,TSK,PFHL,DBHL,GA,EP,ASK 
READ1 ,BSP,BY2,BY4,BG2,ALCR,ANP 
READ1 ,ASP,HNP,A2,A3,AY4,Y4 
READ1 ,G4,GP,AY2,YH,PT 
READ1 ,AS,PSL,BNE,BNM,ALY,BNP 
READ1 ,BG3,AINL,EFNL,CD,CP 
READ1 ,ET,EB,RP,PF,SM,WF 
READ1 ,RSL,CK,C,PT,RP,POL 
READ1 ,PI ,FNL,PG2 # FG,FG2,FG3 
READ1 ,HZ,SC,YY # CM,CF,DF 
READ1 ,AD,FK,RG,PC,EW,DDR 
READ1 ,GE,SI ,XL,XS,XA,XQ 
READ1 # XB,X2,XD,XR,TT,W 
READ1 ,PN,F,RPM,DI ,DU,CL 
READ1 ,SS,HC,QN # WL,BK,BO 
READ1 ,QQ,TS # GC,C1,CC,D1 
RE ADI ,WO,HD # DD,H,B,BN 
READ1 ,SB,TB,RE,T3,HS,PX 
READ1 ,BC1,BT1,BG1,VA,BS # HX 
READ1 ,WT,WQ,WN,WD,FR,RC 
READ1 ,FQ,TG f FC,FT,FSC,SCR 
READ1 ,P1,P2,P3,P4,P5,P6 
READ1 ,P7,EE,CW,SNL,EC 
AN=AT AN ( SQRT ( 1 . -PF*PF ) /PF ) 

AX“S I N(AN) 
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YB ( 1 )=1 . 

YB(2)=1 .5 
YB(3)=2. 

YB(4)=P0L 
703 D0777 K**1 ,4 

AE-AT AN ( ( AX+YB ( K) *XB/ 1 00. ) /PF ) 
EDA(K)»C0S(AE-AN)+YB(K)*(XA/100.)*SIN(AE) 
DX(K)«EDA(K)-(.93*YB(K)*XD/100.)*SIN(AE) 
777 EX(K)=EP+PI*YB(K)*RP 
AAX=(P1+P2+P3+P4)*.001 
P5=.001*P5 
P6*=.00!*P6 
P7=.00!*P7 

I F(BNE-BNh) 924,925,924 
925 AA-PSL/3. 

GO TO 927 
924 AA-PSL/2. 

927 PUNCH1 ,EDA( 1 ) ,EDA(2) ,EDA(3) , EDA(4) 

PUNCH! , EX ( 1 ),EX(2),EX(3),EX(4) 

PUNCH! ,DX(1),DX(2),DX(3),DX(4) 

PUNCH!, POL, FG, FT, FC,PF,GE 
PUNCH!, GA,TG,EP, CP, SS,SM 
PUNCH!, QQ,HS,PX,CK, ASP, AA 
PUNCH! ,ANP,HNP, ASK, RSL,GP,AY2 
PUNCH 1 , YH , A2 , A3 , G4 , AY4, ALY 
PUNCH1 ,PT,FR,AS,P5,P6,P7 
PUNCH !,AAX,GC 
IF(SNL)928,929,928 
929 KA-6 
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GO TO 930 
928 KA-13 

930 PUNCH994.KA 

PUNCH1,PFHL,DBHL,BSP,BY2,BY4,SNL 
PUNCH 1 , BG2 , SC , BNP , BG3 , A I NL , EFNL 
PUNCH 1 ,CD,ET,EB,WF,C,PI 
PUNCH 1,FNL,FK,RG,XA,XQ,XD 
PUNCH1,PN,B0,RE,T3,WT,WQ 
PUNCH1 ,WN,WD,RP,RC,FSC,SCR 
I F(SNL)93 1 ,932,93 1 

931 PUNCH1,GE,SS,SM,QQ,HS,PX 
PUNCH1 , ASP, ANP.HNP.GP, AY2.YH 
PUNCH1 ,A2, A3,G4,AY4, ALY.PT 
PUNCH1.FR, AS, P5,P6,P7,GA 
PUNCH1 , ALCR, Y4,RPh,HC,AAX,GC 
PUNCH1 ,EE,CW,SNL, EC.BNE.BNM 
PUNCH 1 ,P1 ,P2,P3,P4,CP,PSL 

932 PAUSE 
END 
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C PASS 11 SECSYN 

DIMENSION A! ( 1 20) , EDA(4) , EX(4) ,DX(4) , BNPL (4) , BSPL (4) , BY2L (4) 
DIMENSION BY4L(4),BG2L(4),BG3L(4),FFL(4),AIFL(4),EPFL(4),CDD(4) 
DIMENSION FGL(4) 

1 F0RMAT(E1 1.5, El 1.5, El 1.5, El 1.5, El 1.5, El 1.5) 

888 FORMAT (FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0) 

994 FORMAT (13) 

K=*1 

823 READ888,AI (K) , Al (K+1 ) , Al (K+2) , Al (K+3) ,AI (K+4) ,AI (K+5) 

K“K+6 

IF (K— 1 19)823,824,824 

824 READ! ,EDA( 1 ) ,EDA(2) ,EDA(3) ,EDA(4) 

READ1 ,EX(1),EX(2),EX(3),EX(4) 

READ1 ,DX(1),DX(2),DX(3),DX(4) 

READ1 , POL,FG,FT,FC,PF,GE 
READ1 ,GA,TG,EP,CP,SS,SM 
READ1 ,QQ,HS,PX,CK, ASP, AA 
READ1 ,ANP,HNP, ASK,RSL,GP, AY2 
READ1 ,YH,A2,A3,G4,AY4,ALY 
READ1 ,PT,FR,AS,P5,P6,P7 
READ1 , AAX,GC 
READ 994, KA 
DO 995K=1 ,KA 

READ1 ,ED,ENL,FTL,FCL,X,PTT 

995 PUNCH 1 ,ED,ENL,FTL,FCL,X,PTT 
L0AD=2 

JA-0 

D0996 J*»1 ,4 
ED=EDA( J) 





ENL=EX(J) 

BB=ED*FG 

FTL=FT*(1.+PF) 

FCL=FC 

PL7L=P7 *(BB+FTL+FCL) 
BB«BB+(PL7L*GE)/(.00319*GA) 
PLL“TG*ENL/EP 
PTL1=PLL+PL7L/CP 
X «PTL1/(SS*SM*QQ) 

NA»1 

K **1 

GO TO 802 

910 FTL=AT*HS*(1.+PF) 

PL7L=P7 *(B n +FTL+FCL) 
PTL-PLL+PL7L/CP 

FGL(J)-BB+(PL7L*GE)/(GA*.00319) 
PTT-(2.*(FGL(J)+FTL+FCL))*AAX 
FQ-PTL*CP/PX 
IF(PF-. 95)921, 921, 922 

922 FQL-CK*FQ 
GO TO 923 

921 FQL-FQ*DX(J) 

923 PSPL»FQL/2.+PTT/(2.*PX) 

X-PSPL/ASP 

BSPL(J)-X 

NA-31 

K-2 

GO TO 802 

911 FSPL-AA*AT 
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PNPL-FQL+PTT/PX 

X-PNPL/ANP 

K-3 

NA-61 

GO TO 802 

912 FNPL-AT*HNP 
BB-2.*(FGL(J)+FTL+FCL) 

P6L-P6* (FSPL+FNPL+BB) 

PSK-PSPL*PX/2.+P6l/2. 

BSK-PSK/ASK 

HA-31 
K-4 
X-BSK 
GO TO 802 

913 FSK-RSL*AT 

BG2L(J)-PSK/A2 
FG2L-BG2L( J)*GP/.003 1 9 
PL5-P5* (FNPL+BB+FSPL+FG2L) 

PY2-PSK+PL5/2. 

X-PY2/AY2 
BY2L(J)«X 
K-5 
NA-91 
GO TO 802 

914 FY2L-AT*YH/3. 

BG3L(J)-PY2/A3 
FG3L-BG3L ( J ) *G4/ .00319 
X-PY2/AY4 
BY4L( J)-X 
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NA-61 

K-6 

GO TO 802 

915 FY4L-ALY*AT/2. 

X-2.*PY2/(4.*ANP) 

BNPL(J)-X 

NA-61 

K-7 

GO TO 802 

916 FNPL-HNP*AT 

FFL(J)-BB4fSPL+FNPL+FSK+FG2L+FY2L+FG3L+FY4L 
AIFL(J)-FFL(J)/PT 
EPFL( J)-AI FL(J)*FR 

996 CDD(J)-AIFL(J)/AS 
837 JA-JA/7 

PUNCH994, JA 
I F(JA) 970,97 1,970 

970 DO 997 K»1,JA 

PUNCH1,BNPL(K),BSPL(K),BY2L(K),BY4L(K),BG2|_(K) # BG3L(K) 

997 PUNCH 1 ,FFL(K) ,AI FL(K) ,EPFL (K) f CDD(K) ,FGL(K) 

971 PUNCH1 ,POL,FG,PF,EP,GE,FR 
PUNCH1 ,PT,GC 

PAUSE 

802 IF(AI (NA)-X)830,831,831 
831 NA-NA+3 

835 IF(AI(NA)-X)833, 834,834 

833 NA-NA+2 
GO TO 835 

834 A- A I (NA) 
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BB1-AI (NA-2) 

DC- A I (NA+1 ) 

D-AI (NA-1) 

XX«(A-BB1 )/( . 4343* (LOG ( DC )-LOG(D+. 0001 ) ) ) 
Y-A-XX*.4343*L0G(DC) 
AT«EXP(2.306*(X-Y)/XX) 

GO TO (838, 83 9), LOAD 
839 JA-JA+1 

GO TO (910,911, 912, 913, 914, 915, 916), K 
830 GO TO (836, 837), LOAD 
END 
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c PASS 12 SECSYH 

DIMENSION BNPL(4).BSPL(4),BY2L(4),BY4L(4),BG2L(4),BG3L(4),FFL<4) 

DIMENSION AIFL(4),EPFL(4),CDD(4),FGL(4), STTL(4).WDL(4) 

DIMENSION SCUL(4),EDDL(4),WNL(4),FCUL(4),T0TL(4),PEFF(4) YB(4) 
961 F0RMAT(F1I.3.8X F1I.3.FI1.3.F11.3.FI1.3) 

1 F0RMAT(E11.5,E11.S,E11.5,E1I.5,EI1.5,E11.5) 

99k FORMAT (13) 

DO 950 K-1,4 
BSPL(K)-0 

bnpl(k)«o 

BY2L(K)-0 
BY4L(K)-0 
BG2L(K)«0 
BG3L(K)"0 
FFL(K)-0 
CDDOO-0 
AIFL(K)-0 
EPFL(K)-0 
FGL(K)-0 
STTL(K)-0 
WDL(K)-0 
SCUL(K)«0 
EDDL(K)-0 
WNL(K)-0 
FCUL(K)-0 
T0TL(K)«0 
950 PEFF(K)-0 

RE AD 1 , PFHL ,DBHL , BSP , BY2 1 BY4, S HL 

READ1 ,BG2,SC,BNP,BG3, Al NL.EPNL 
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READ1,CD,ET,EB,WF,C,PI 
READ1 ,FNL,FK,RG,XA,XQ,XD 
READ1,PN,B0,RE,T3,WT,WQ 
READ1 ,WN,WD,RP,RC,FSC,SCR 
IF(SNL)993,993,992 

992 DO 991 L-1,7 

READ1 ,POL,FG,PF,EP,GE,FR 
991 PUNCH1,P0L,FG,PF,EP,GE,FR 

993 READ 994, JA 

IF (JA) 941,942, 941 

941 DO 943 K-1,JA 

RE AD 1 , BNPL ( K) , BSPL ( K) , BY2L ( K) , BY4L ( K) , BG2L ( K) , BG3L ( K) 
943 READ1 ,FFL(K) ,AI FL(K) ,EPFL(K) ,CDD(K) ,FGL(K) 

942 READ1 ,POL,FG,PF,EP,GE,FR 
READ1 ,PT,GC 

ABX-0 

YB(1)-1. 

YB(2)-1 ,5 
YB(3)«2. 

YB(4)-P0L 
973 BX-PFHL+OBHL 
AXX-BO/GC 

IF(AXX-1.)965,965,964 
965 AKSC-2.6 
GO TO 957 

964 IF(AXX-3.75)955,955,956 

955 AKSC«10.**.178/((AXX-1.)**.334) 

GO T0957 

956 AKSO10.**.11/((AXX-1.)**.174) 
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957 FEL-AINL*AINL*FK*2. 

T L-WF +WQ+WT +WD+WN+F E L 
IF (POL >966,967 ,966 

967 I F (JA-4 > 966,968,966 

968 JA a JA— 1 

966 DO 951 K-1.JA 

FCUL(K)«2.*(AIFL(K)**2)*FR 
AXX- ( . 4*XA/ 1 00. ) *YB ( K) 

I F( AXX-1 . ) 952 , 953 , 953 

952 AXX-AXX**1.8 
GO TO 954 

953 AXX-AXX**2 

954 STTL(K)-(2.*AXX+1.)*WT 

AXX - ( (AKSC*PI *YB(K)*SC)/(C*FGL(K) ))**2+1 . 

WNL(K)«AXX*WN 
WDL(K)-AXX*WD 
SCUL (K)»PN*P I *P I *YB(K)*RP 

EDDL(K)-(((ET+EB)/2.)-1.)*SCUL(K) 

TOTL(K)-SCUL(K>+WF+STTL(K)+WQ+WML (K)+WDL(K)+EDDL(K)+FCUL(K)+BX 
PEF-3 . *EP*P I *YB ( K) *PF 
95 1 PEFF ( K) -PEF* 1 00. / ( PEF+TOTL ( K) ) 

I F ( POL) 958, 959, 958 

958 PRIMT961,BNP,BNPL(1),BNPL(2),BNPL(3),BNPL(4) 

PRINT 961, BSP, BSPL(1),BSPL(2),BSPL(3),BSPL(4) 
PRINT961,BY2,BY2L(1),BY2L(2),BY2L(3),BY2L(4) 
PRINT961,BY4,BY4L(1),BY4l(2),BY4l(3),BY4L(4) 
PRINT961,BG3,BG3L(1),BG3L(2),BG3L(3),BG3L(4) 

PRINT 961, BG2,BG2L(1),BG2L(2),BG2L(3),BG2L(4) 

PRINT 961, FNL,FFL(1),FFL(2),FFL(3) # FFL(4) 
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PRINT961,AINL,AIFL(1),AIFL(2),AIFL(3),AIFL(4) 
PR I NT961,CD,CDD(1),CDD(2),CDD(3),CDD(4) 
PRINT96l,EPNL,EPFL(1),EPFL(2),EPFL(3),EPFL(4) 
PRI NT 961 ,WQ,WQ,WQ,WQ,WQ 

PRINT96l,WT,STTL(1),STTL(2),STTL(3),STTL(4) 
PRI NT 961 ,WD,WDL( 1 ) ,WDL(2) ,WDL(3) ,WDL(4) 
PRINT961,ABX,SCUL(1),SCUL(2),SCUL(3),SCUL(4) 
PRINT961,ABX,EDDL(1),EDDL(2),EDDL(3),EDDL(4) 
PRI NT 961 ,WN,WNL( 1 ) ,WNL(2) ,WNL(3) ,WNL(4) 
PRINT961,FEL,FCUL(1),FCUL(2),FCUL(3),FCUL(4) 
PR I NT 96 1 # WF ,WF ,WF ,WF ,WF 

PRI NT 961 , TL,TOTL( 1 ) ,T0TL(2) ,T0TL(3) ,T0TL(4) 
PR I NT961 , ABX,PEFF ( 1 ) ,PEFF(2) f PEFF (3) , PEFF (4) 
PAUSE 

959 PRINT961,BNP,BNPL(1),BNPL(2),BNPL(3) 

PRI NT961,BSP,BSPL(1),BSPL(2),BSPL(3) 
PRINT96l,BY2 f BY2L(1),BY2L(2),BY2L(3) 

PRI NT 961 , BY4,BY4L( 1 ) ,BY4l(2) ,BY4L(3) 

PRINT96l,BG3 # BG3L(1),BG3L(2) f BG3L(3) 

PRINT961,BG2,BG2L(1),BG2L(2),BG2L(3) 

PRINT961,FNL,FFL(1),FFL(2),FFL(3) 

PRINT961,AINL,AIFL(1),AIFL(2),AIFL(3) 

PRI NT 96 1 ,CD,CDD( 1 ) ,CDD(2) ,CDD (3) 
PRINT961,EPNL,EPFL(1),EPFL(2),EPFL(3) 

PRI NT961,WQ,WQ,WQ,WQ 
PRINT961,WT,STTL(1),STTL(2),STTL(3) 

PRI NT 961 ,WD,WDL( 1) ,WDL(2) ,WDL(3) 

PRINT961,ABX # SCUL(1),SCUL(2),SCUL(3) 

PRINT961,ABX,EDDL(1),EDDL(2),EDDL(3) 
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PR I NT961,WN,WNL(1),WNL(2),WNL(3) 

PRINT961,FEL,FCUL(1),FCUL(2),FCUL(3) 

PRINT961,WF,WF,WF,WF 

PRINT96l # TL t T0TL(1),T0TL(2),T0TL(3) 

PR I NT961,ABX # PEFF(1),PEFF(2),PEFF(3) 

PAUSE 

END 
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C PASS 13 SECSYN 
DIMENSION Al (120) 

979 FORMAT(F12.5,F12.5,F12.5,F12.5,F12.5,F12.5//) 

977 FORMAT(F12.5,F12.5,F12.5,F12.5,F12.5,F12.5) 

888 F0RMAT(F1 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0, FI 0.0) 

1 F0RMAT(E1 1.5, El 1.5, El 1.5, El 1.5, El 1.5, El 1.5) 

K-1 

823 READ888.AI (K) , Al (K+1 ) , Al (K+2) , Al (K+3) ,AI (K+4) , Al (K+5) 
K-K+6 

IF (K-1 19)823,824,824 

824 READ1 ,GE,SS,SM,QQ,HS,PX 
READ1 , ASP, ANP,HNP,GP, AY2,YH 
READ1 ,A2,A3,G4,AY4,ALY,PT 
READ1 ,FR,AS,P5,P6,P7,GA 
READ1 ,ALCR,Y4,RPM,HC,AAX,GC 
READ1 ,EE,CW,SNL,EC,BNE,BNM 
READ1 ,P1 ,P2,P3,P4,CP,PSL 
LOAD -1 

YA-.8 

P5“1 000. *P5 

P6»1000.*P6 

P7-1000.*P7 

DO 899 L-1,9 

BX-YA*EE 

YA-YA+.1 

TG-6 . E6*BX/ ( CW*EC*RPM) 

BTT-TG/(SS*SM*QQ) 

FQ-TG*CP/PX 

BC-FQ/(2.*HC*SS) 
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BG=TG/GA 

PL71».01*TG 
801 TTP-TG+PL71 
X-TTP/TG 
BT1«X*BTT 
Z-FQ/PX 
PP1«X*FQ 
BC1-(PP1/FQ)*BC 
BG1-BG*X 

FG-(BG1*GE)/. 00319 

NA-1 

K-1 

X-BT1 

GO TO 802 

803 FT ■AT *HS 
NA-1 
K-2 
X-BC1 

GO TO 802 

804 FC«AT*ALCR 
PL7-(FT+FG+FC)*P7*.OOl 

I F(1.1*PL71-PL7)81 0,81 1,811 

811 IF (,9*PL71-PL7) 81 2,8 12,810 
810 PL71-PL7 

GO TO 801 

812 Z 1 - ( . 002* ( FG+F C+FT ) )* ( P 1 +P2+P3+P4) 
FQ-PP1 

Z-FQ/PX 

Y-Z1/PX+FQ 
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BNP=Y/ANP 

BSP=Y/(2.*ASP) 

MA=6 1 
K=3 
X«BNP 
GO TO 802 

805 FNP«HNP*AT 
NA-31 

K»4 
X-BSP 
GO TO 802 

806 I F(BNE-BNM)82 0,82 1,820 

820 AXX-PSL/2. 

GO TO 822 

821 AXX-PSL/3. 

822 FSP=AXX*AT 
PG2»(FQ*PX+Z1+PL7)/4. 

BG2-PG2/A2 

FG2=BG2*GP/.00319 

BY4=PG2/AY4 

K=5 
NA=6 1 
X-BY4 
GO TO 802 

807 FY4»AT*Y4 
Z2=2.*(FG+FC+FT) 

Z3“Z2+FSP+FG2 

PL5-(Z3+FNP)*P5*.001 

816 BNP*»( ( (Z1+PL7+PL5) /PX)+FQ) /ANP 
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K=6 
NA«61 
X-BNP 
GO TO 802 

808 FNP-HNP*AT 
PL51-(Z3+FNP)*P5*.001 
IF(1.1*PL5-PL51)813, 814,814 

814 IF(.9*PL5-PL51)815,815,813 
813 PL5-PL51 

GO TO 816 

815 BG3-(FQ*PX+(Z1+PL7+PL5))/(4.*A3) 
FG3-BG3*G4/.00319 
PL6-(Z2+FSP+FNP-i-FY4+FG3)*P6*.001 
BG2-(FQ*PX+Z1+PL7+PL6)/(4.*A2) 
FG2-BG2*GP/.00319 
BY2«(FQ*PX+Z1+PL7+PL5)/(4.*AY2) 
X-BY2 

K-7 
NA-91 
GO TO 802 

809 FY2«YH*AT/3. 
FNL-Z2+FNP+FSP+FG2+FY2+FG3+FY4 
PRI NT977,BX,BG1 , BG2,BG3,BC1 ,BT1 

899 PRI NT979,BY2,BSP,BNP,BY4,FQ,FNL 
PAUSE 

802 IF(AI (NA)-X)830, 83 1,831 
831 NA-NA+3 

835 IF(AI (NA)-X)833, 834,834 
833 NA-NA+2 
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GO TO 035 
834 A=AI (NA) 

BB1=AI (NA-2) 

DC=A1 (NA+1 ) 

D=A I (HA-1) 

XX=( A-BBl ) / ( ,4343*(L0G (DC)-LOG (D+.0001 ) ) } 
Y=A-XX*.4343*L0G(DC) 

AT=EXP(2.306*(X-Y)/XX) 

GO TO (830, 839), LOAD 

838 60 TO (803, 804, 805, 006, 807, 808, 809), K 
830 GO TO (836,837) .LOAD 
836 PRINT 050, 

850 FORMAT (17HMACHINE SATURATED) 

PAUSE 

END 
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